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PREFACE 


FORTRAN is a problem oriented language designed to permit scientists 
and engineers to express mathematical operations in a form, with which 
they are familiar. It is also used in a variety of applications 
including process control, information retrieval, and commercial data 
processing. 

This document describes the form of the basic elements of the FORTRAN 
proqram, the FORTRAN statements. The document is a reference manual, 
and, while it can well be used by an inexperienced FORTRAN programmer, 
it is not designed to function as a tutorial manual. 

Because this document serves as the FORTRAN Language Reference Manual 
for several of the operating systems which run on the PDP-11 family of 
computers, it makes no reference to system gj"; 

Associated with this document, however, should be the FORTRAN User s 
Guide containing the necessary information for running a 
program on a specific operating system. 


DOCUMENTATION CONVENTIONS 

Throughout this manual the following notations are used to denote 
special non-printing characters: 

Tab character (TAB key or CTRL/I key 
combination) 

A (delta) Space character (SPACE bar) 


This document serves as the FORTRAN language reference manual for two 
PDP-11 FORTRAN processors: FORTRAN IV and FORTRAN IV PLUS. 


FORTRAN IV-PLUS is a superset of FORTRAN IV. Language elements that 

are common to both processors are presented w ! th °^ TR ^ c ^pLSs 
shading. Language elements that are available only in FORTRAN IV PLUS 
arc printed against a shaded background. 










SYNTAX NOTATION 


The following conventions are used in the description of FORTRAN 
statement syntax. 

1. Upper case words and letters, as well as punctuation marks 
other than those described in this section, are written as 
shown. 

2. Lower case words indicate that a value is to be substituted. 
The accompanying text specifies the nature of the item to be 
substituted, e.g., integer variable or statement label. 

3. Square brackets ( [ ] ) enclose optional items. 

4. An ellipsis (...) indicates that the preceding item or 
bracketed group can be repeated any number of times. 

For example, if the description were 

CALL sub [ (a [ ,a]...) ] 

then all of the following would be correct: 

CALL TIMER 

CALL INSPCT (I,J,3.0) 

CALL REGRES (A) 













DIFFERENCES BETWEEN FORTRAN IV VO1C AND EARLIER 
RELEASES OF FORTRAN IV (VOIB and DO6) 



are documented in the RTj 
LRRUA-A-D) and the IAS/R: 
These extensions have no 
ated programs. 


1. The FORMAT descriptor colon (:) has been added, allowing 
a conditional exit from FORMAT processing if no I/O list 
elements remain to be transferred. 

2. The syntax of the assigned GOTO statement, the DO state¬ 
ment, the COMMON statement, and the DATA statement has 
been modified to allow optional commas for readability. 
The new syntax is a superset of, but compatible with, 
the previous syntax. The new syntax is: 

GOTO ivar[[,] (slist)] 


DO s[,] ivar=el,e2[,e3] 

COMMON[/]cb]/] nlist[[,]/[cb]/nlist]... 
DATA nlist /clist/[[,]nlist /clist/]... 


3. The PROGRAM statement has been added to allow the main 
program object module name to be specified. 

4 The BLOCK DATA statement now allows an optional name to 
be specified (to identify the resultant object module). 

5 The syntax of the ENCODE and DECODE statements has been 
extended to allow the specification of an array, array 
element, or simple variable as the third argument inside 
parentheses. Also, the ERR= parameter can be used to 
facilitate handling of certain formatting errors. 

6. Default FORMAT width and precision specifications are 
now provided by FORTRAN IV VO1C. 

7. A plus sign rather than a space is used before the ex¬ 
ponent on E and D format output conversions for posi¬ 


tive exponents. 


8. The keyword BYTE is provided as a synonym for LOGICAL*!. 
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CHAPTER 1 


INTRODUCTION TO PDP-11 FORTRAN 


1.1 LANGUAGE OVERVIEW 


The PDP-11 FORTRAN 
American National 
enhancements to Amer 
PDP-11 FORTRAN: 


language conforms to the specifications for 
Standard FORTRAN X3.9-1966. The following 
ican National Standard FORTRAN are included in 


1. Any arithmetic expression can be used as an array subscript. 
If the expression is not of type Integer, it is converted to 
Integer form. 


2. Alphanumeric literals (character strings bounded by 

apostrophes) can be used in place of Hollerith constants. 

3. Mixed-mode expressions can contain elements of any data 
type, including Complex. 

4. The statement label list in an assigned GO TO statement is 
optional. 


5. The following Input/Output statements have been added: 


ACCEPT ) 

TYPE > 

PRINT ) 

DEFINE FILE \ 
READ (u'r) I 
WRITE (u'r) ( 

FIND (u'r) ) 


Device-oriented I/O 


Unformatted Direct Access I/O 


6. The specifications END=n and/or ERR=n can be included in any 
READ or WRITE statement to transfer control to the specified 
statement upon occurrence of an end-of-file or error 
condition. 


7. The following additional data type is provided: 


L0GICAL*1 

8. The IMPLICIT statement redefines the implied data type of 
symbolic names. 

9. Any FORTRAN statement can be followed, in the same line, by 
an explanatory comment that begins with an exclamation 
point. 
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10. Statements can be included in a program for debugging 
purposes by placing the letter D in column 1. These 
statements are compiled only when the associated compiler 
option switch is set; otherwise, they are treated as 
comments. 

11. Undersized input data fields can contain external field 
separators to override the FORMAT field width specifications 
for those fields (called "short field termination"). 

12. Any arithmetic expression can be used as the initial value, 
increment, or limit parameter in the DO statement, or as the 
control parameter in the computed GO TO statement. 

13. The value of the DO statement increment parameter can be 
negative. 


14. 

15. 

16. 


Constants and expressions are permitted in the I/O lists of 
WRITE, TYPE, and PRINT statements. 

A PROGRAM statement can be used in a main program. 

An optional comma is allowed in DO statements for better 
readability and reduced user errors. 


For example 


DO 5, 1=1,10 


In addition, FORTRAN IV-PLUS includes the following extensions: 

17. PARAMETER statements can be used to give symbolic names co 
constants. 

18. ENTRY statements can be used in SUBROUTINE and FUNCTION 

subprograms to define multiple entry points in a sinqle 
program unit. y 

19. Lower bounds for array dimensions can be specified in all 
array declarators. 

20. The data type INTEGERS provides a sign plus 31 bits of 
precision. 

21. The following Input/Output statements have been added: 


OPEN 

^° SE /File control and attribute specification 

READ (u'r,fmt)l 

WRITE (u'r ,fmt)/Formatted Direct Access I/O 


} Fi; 


22 . 


23. 


Generic function selection by argument data type is provided 
for many FORTRAN supplied functions. 

The control variable of a DO statement can be a REAL or 
DOUBLE PRECISION variable. 



* 


o 

0 
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24. The INCLUDE statement incorporates FORTRAN source text from 
a separate file into a FORTRAN program. 

25. Formatted input/output can be performed without a format 
specification using list-directed I/O. 


1.2 ELEMENTS OF A FORTRAN PROGRAM 

A FORTRAN program consists of FORTRAN statements and optional 
comments. The statements are organized in J^ical units call 
program units. A program unit is a sequence of statements termmat 
by 9 an END statement that defines a computing procedure. A program 
unit can be either a main program or a subprogram. One 
and possibly one or more subprograms comprise the executable progra . 


1.2.1 Statements 

Statements are grouped into two general classes: executable and 
nonexecutable. Executable statements describe the action of the 
program; nonexecutable statements describe data arrangement an 
characteristics, and provide editing and data conversion information. 

Statements are divided into physical sections called lines. A line is 
a string of up to 72 characters. If a statement is too long to be 
contained on one line, it can be continued on one or more additional 
lines, called continuation lines. A continuation line is identified 
by the presence of a continuation character in the sixth column of 
that line. (For further information concerning continuation 

characters, see Section 1.3.4, Continuation Field.) 


A statement can be identified 
statements can refer to it, 
to transfer control to it. A 
integer number placed in 
initial line. 


by a statement label so 
either for the information it 
statement label has the 
the first five columns of a 


that other 
contains or 
form of an 
statement 1 s 


1.2.2 Comments 

Comments do not affect the meaning of the program in any 
a documentation aid to the programmer. They should be used freely co 
describe the actions of the program, to identify program sections and 
processes, and to provide greater ease in reading the source program 
listing. The letter C in the first column of a source line identifies 
that line as a comment. Also, if an exclamation point (!) is placed 
in the statement portion of a source line, the rest of that line is 
treated as a comment. 


1.2.3 The FORTRAN Character Set 

The FORTRAN character set consists of: 
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1. The upper case letters A through Z and the lower case letters 
a through z 

2. The numerals 0 through 9 


following special 

charac ters: 

Charac ter 

Name 

A 

Space or Blank or Tab 

= 

Equals 

+ 

Plus 

- 

Minus 

* 

Asterisk 

/ 

Slash 

( 

Left Parenthesis 

) 

Right Parenthesis 

/ 

Comma 

• 

Decimal Point 

i 

Apostrophe 

ii 

Double Quote 

$ 

Dollar Sign 

: 

Colon 



Ocher printable characters may appear in a FORTRAN statement 
pare of a Hollench constant or alphanumeric literal. Any 
character can appear in a comment. 


only as 
printable 


Except in alphanumeric literals and Hollerith constants, the 
makes no distinction between upper and lower case letters. 


compiler 


1 •3 FORMATTING A FORTRAN LINE 


The formatting of a FORTRAN line is the same for lines 
cards or paper tape and for lines entered from a termina 
editor. Only the method of formatting differs. 


punched 
using a 


into 
tex t 
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1.3.1 Using FORTRAN Coding Forms 

A FORTRAN line is divided into fields for statement labels, 
continuation indicators, statement text and sequence numbers. Each 
column represents a single character. The usage of each type of field 
is described in the following sections. 
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Figure 1-1 
FORTRAN Coding Form 




1-3-2 Using a Text Editor 

When creating a source program via a terminal, using a text editor, 
the user can type the lines on a "character-per-column" basis, or use 
the TAB character to facilitate formatting the lines. 

If a TAB character appears at the beginning of a line, possibly 
preceded by a statement label or a D in column 1, and the following 
character is a digit, the compiler treats the digit as a continuation 
indicator and the character following as the beginning of the 
statement text. If the character following the initial TAB is not a 
digit, the compiler treats it as the first character of the statement 
text. If the continuation indicator is a "0" the line is an initial 
line. 

While many text editors and terminals advance the terminal print 
carriage to a predefined print position when the TAB character is 
typed, this action is not related to the interpretation of the TAB 
character described above. 
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Formatting of the following 

lines 

following ways: 


-| 1AHOLD,MOVE,DECODE 

or 

CH INITIALIZEAARRAYS 

or 

1(H W=3 

or 

HSEL(1)=111200022D0 

or 


an be accomplished in either of the 

AAAAAlAHOLD,MOVE,DECODE 
CAAAAAINITIALIZEAARRAYS 
10AAAAw=3 

AAAAAASEL(1)=111200022D0 


where: 

-*| represents a TAB character (CTRL/I) , and 

A represents a space character (SPACE bar). 

The space character can be used in a FORTRAN statement to improve 
legibility of the line? the compiler ignores all spaces in a 
statement field except those within a Hollerith constant or 
alphanumeric literal (e.g., GO TO and GOTO are equivalent). The TAB 
character in a statement field is treated the same as a space by the 
compiler. In the source listing produced by the compiler, the TAB 
causes the character that follows to be printed at the next tab stop 
(located at columns 9,17,25,33, etc.). 


1.3.3 Statement Label Field 

A statement label or statement number consists of one to five decimal 
digits placed in the first five columns of a statement's initial line. 
Spaces and leading zeros are ignored. An all-zero statement label is 
illegal. 

Any statement to which reference is made by another statement must 
have a label. No two statements within a program unit can have the 
same label. 


1.3.3.1 Comment Indicator - The letter C can be placed in column one 
to indicate that the line is a comment. The compiler prints the 
contents of that line in the source program listing, then ignores the 
line. 


1.3.3.2 Debug Statement Indicator - Debug statements are designated 
by a D in column one. The initial line of the debug statement can 
contain a statement label in columns two through five. If a debug 
statement is continued onto more than one line, then every 
continuation line must contain a D in column one as well as a 
continuation character in column six. 

The debug statement can be treated either as source text to be 
compiled or as a comment, depending on the setting of a compiler 
command switch. When the switch is set, debug statements are compiled 
as a part of the source program; when it is not set, debug statements 
are treated as comments. 
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1.3.4 Continuation Field 

Column six of a FORTRAN line is reserved for a continuation indicator. 
Any character except zero or space in this column is recognized as a 
continuation indicator. A statement can be divided into distinct 
lines at any point. The characters beginning in column seven of a 
continuation line are considered to follow the last character of the 
previous line as if there were no break at that point. 

Comment lines cannot be continued. All comment lines must begin with 
the letter C in column one. Comment lines must not intervene between 
a statement's initial line and its continuation line(s), or between 
successive continuation lines. 


1.3.5 Statement Field 

The text of a FORTRAN statement is placed in columns 7 through 72. 
Because the compiler ignores the TAB character and spaces (except in 
Hollerith constants and alphanumeric literals), the user can space the 
text in any way desired for maximum legibility. 


1.3.6 Sequence Number Field 

A sequence number or other identifying information can appear in 
columns 73-80 of any line in a FORTRAN program. The characters in 
this field are ignored by the compiler. 


NOTE 

Text is ignored with no warning message 
printed if a line accidentally extends 
beyond character position 72. 


1.4 PROGRAM UNIT STRUCTURE 

Figure 1-2 provides a graphic representation of the rules for 
statement ordering. In this figure, vertical lines separate statement 
types which may be interspersed, such as DATA and executable 
statements; horizontal lines indicate statement types that can not be 
interspersed, such as DATA and PARAMETER statements. 
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PROGRAM, FUNCTION, SUBROUTINE, or 
BLOCK DATA Statement 




PARAMETER 

IMPLICIT 

Statements 

Comment 

Lines 

FORMAT 

and 

Statements 

Other Specification 
Statements 


ENTRY 

Statements 

DATA 

Statements 

Statement 

Function 

Definitions 




Executable Statements 


END Line 


Figure 1-2 

Required Order of Statements and Lines 


INCLUDE 


1.5 INCLUDE STATEMENT 

The INCLUDE statement specifies that the contents of a designated file 
are to be incorporated in the FORTRAN compilation directly following 
the INCLUDE statement. 

The INCLUDE statement has the form: 

INCLUDE 1 filspec[/[NO]LIST]' 

filspec is a character string that specifies the file to be 
included in the compilation. This file specification 
must be acceptable to the operating system. (See the 
FORTRAN IV-PLUS User's Guide for the form of a file 
specification.) 

The option specification /LIST indicates that the statements in the 
included file are to be listed in the compilation source listing 
preceded by an asterisk (*). The /NOLIST option specification 
indicates that the included statements are not to be listed in the 
compilation source listing. The /LIST option is assumed if neither 
option is specified. 

When the compiler encounters an INCLUDE statement, it stops reading 
statements from the current file and compiles the statements in the 
included file. When the end of the included file is reached, 
compilation resumes with the statement following the INCLUDE 
statement. 
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An INCLUDE statement can be contained in an included file. 

An included file can not begin with a continuation line. Each FORTRAN 
statement must be completely contained within a single file. 

The INCLUDE statement can appear anywhere that a comment line can 
appear as illustrated in Figure 1-2. Any FORTRAN statement can appear 
in an included file; however, the included statements, when combined 
with the other statements of the compilation must satisfy the 
statement ordering restrictions of Section 1.4. 

Example 

Main Program File File COMMON.FTN 

INCLUDE 'COMMON.FTN' 

DIMENSION Z(M) 

CALL CUBE 
DO 5, 1=1,M 

5 Z(I) = X(I)+SQRT(Y(I)) 


SUBROUTINE CUBE 
INCLUDE 'COMMON.FTN' 

DO 10, 1=1,M 
10 X{I) = Y(I)**3 
RETURN 
END 

THE FILE COMMON.FTN defines the size of the blank COMMON block and the 
size of the arrays X, Y and Z. 


PARAMETER M = 100 
COMMON X(M),Y(M) 
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CHAPTER 2 

FORTRAN STATEMENT COMPONENTS 


2.1 INTRODUCTION TO FORTRAN STATEMENT COMPONENTS 
The basic components of FORTRAN statements are: 

1. Constants 

A constant represents a fixed, self-describing value. 

2. Variables 

A variable is a symbolic name that represents a stored value. 

3. Arrays 

An array is a group of values, stored contiguously, that can 
be referred to individually or collectively. The individual 
values are called array elements. A symbolic name is used to 
refer to the array. 

4. Expressions 

An expression can be a single constant, variable, array 
element, or function reference, or it can be a combination of 
those components and certain other elements, called 
operators, that specify computations to be performed on the 
values represented by those components to obtain a single 
result. 

5. Function References 

A function reference is the name of a function followed by a 
list of arguments which performs the computation indicated by 
the function definition. The resulting value is used in 
place of the function reference. Function references are 
treated in detail in Chapter 8. 


f 


+ 



2.2 SYMBOLIC NAMES 

Symbolic names are used to identify many entities within a FORTRAN 
program unit. 

A symbolic name is a string of letters and digits, the first of which 
must be a letter. The name can be of any length, but characters after 
the sixth are ignored. Examples of valid and invalid symbolic names 
are: 

Valid Invalid 

NUMBER 5Q (Begins with a numeral) 

K9 B.4 (Contains a special character) 
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Table 2-1 indicates the types of entities which are identified by 
symbolic names. 


Within one program unit, the same symbolic name cannot be used to 
identify more than one entity, except as noted. Within an executable 
program, the same symbolic name can be used to identify only one of 
the entities indicated as "Unique in Executable Program in Table 2 1. 


Each entity indicated as "Typed" in Table 2-1 has a data type- . The 
means of specifying the data type of a name are discussed in Sections 

2.5.1 and 2.5.2. 

Within a subprogram, symbolic names are also used as dummy arguments. 
A dummy argument can represent a variable, array, array element, 
constant, expression, or subprogram. 


Table 2-1 

Classes of Symbolic Names 


Entity 

Typed 

Unique in 

Executable Program 

Variables 

yes 

no 

Arrays 

yes 

no 

Arithmetic statement functions 

yes 

no 

Processor-defined functions 

yes 

yes 

Function subprograms 

yes 

yes 

Subroutine subprograms 

no 

yes 

Common blocks 

no 

yes 

Main programs 

no 

yes 

Block data subprograms 

no 

yes 


Function entries 

yes 

yes 


Subroutine entries 

no 

yes 


Parameter constants 

yes 

no 



2.3 DATA TYPES 

Each basic component represents data of one of several different 
types. The data type of a component can be inherent in its 
construction, implied by convention, or explicitly declared. The data 
types available in FORTRAN, and their definitions, are as follows: 


1. Integer — A whole number. 

2 . Real - A decimal number; it can be a whole 

number, a decimal fraction, or a 

combination of the two. 


3. Double Precision - Similar to real, but with more than 

twice the degree of accuracy in its 
representation. 


4. Complex — A pair of real values that represents a 

complex number; the first represents 
the real part of that number, the second 
represents the imaginary part. 

5. Logical - The logical value "true" or "false". 
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An important attribute of each type of data is the amount of memory 
required to represent a value of that type. Variations on the basic 
types affect either the accuracy of the represented value or the 
allowed range of values. 

Hollerith constants and alphanumeric literals have no data type. They 
assume the data type of the context in which they appear. See Section 
2.4.7.2 for details. 

Standard FORTRAN specifies that a "storage unit" is the amount of 
storage needed to represent a Real, Integer or Logical value. Double 
Precision and Complex values occupy two storage units. In PDP-11 
FORTRAN a storage unit corresponds to four bytes (two words) of 
memory. 

PDP-11 FORTRAN provides additional types of data for optimum selection 
of performance and memory requirements. Table 2-2 lists the data 
types available, the names associated with each data type, and the 
amount of storage required. The form *n appended to a data type name 
is called a data type length specifier. 


Table 2-2 

Data Type Storage Requirements 


DATA TYPE 

FORTRAN IV 
(Bytes) 

FORTRAN IV-PLUS 
(Bytes) 

INTEGER 

2 or 4 (Note 1) 

2 or 4 (Note 2) 

INTEGERS 

2 

2 

INTEGERM 

4 (Note 3) 

4 

REAL 

4 

4 

REALM 



DOUBLE PRECISION 

8 

8 

REALM 



COMPLEX 

8 

8 

COMPLEXM 



LOGICAL 

4 

2 or 4 (Note 4) 

L0GICAL*1 

1 (Note 5) 

1 (Note 5) 

BYTE 



L0GICAL*2 

Not Available 

2 

LOGICAL*4 

4 

4 
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NOTES: 

1. Either two or four bytes are allocated according to a 

compiler command specification. The default allocation is 

two bytes. In either case only two bytes are used to 
represent the integer value. The 4-byte allocation is 
provided to simplify use of programs developed on other 
FORTRAN systems. (Consult the FORTRAN IV User's Guide for 
details.) 

2. Either two or four bytes are allocated depending on a 

compiler command specification. The default allocation is 
two bytes. When four bytes are allocated, all four bytes are 
used to represent the integer value. Hence 4-byte integers 
can store a larger range of values than 2-byte integers. 
(4-byte integers can also simplify the use of programs 
developed on other FORTRAN systems.) 

3. Four bytes are allocated but only the first two are used to 

represent the integer value. The range of possible values is 

therefore the same as for INTEGER*2 variables. 

4. Either two or four bytes are allocated depending on a 

compiler command specification. Two bytes is the normal 
case. 

5. The 1-byte storage area can contain the logical values true 
or false, a single Hollerith character, or integers in the 
range -128 to +127. 

Additional descriptions of these data types and their representations 
are presented in the sections that follow. 


2.4 CONSTANTS 

A constant represents a fixed value. A constant can represent a 
numeric value, a logical value, or a character string. 


2.4.1 Integer Constants 

An integer constant is a whole number with no decimal point. It can 
have a leading sign and is interpreted as a decimal number. 

An integer constant has the form: 

snn 

where nn is a string of numeric characters and s is an optional sign. 
Leading zeros, if any, are ignored. 

A negative integer constant must be preceded by a minus symbol; a 
positive constant can optionally be preceded by a plus symbol (an 
unsigned constant is presumed to be positive). 

Except for a leading algebraic sign, an integer constant cannot 
contain any character other than the numerals 0 through 9. 

The absolute value of an integer constant cannot be greater than 32767 
in FORTRAN IV or 2147483647 in FORTRAN IV-PLUS. 
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Examples 

Val id 

Integer Constants 
0 

-127 

+32123 


Invalid 

Integer Constants 

99999999999 

3.14 

32,161 


(Too large) 
(Decimal point and 
comma not allowed) 


In FORTRAN IV-PLUS, if the value of the constant is within the range 
-32768 to +32767 then it represents a 16-bit signed quantity and is 
treated as INTEGER*2 data type. If the value is outside that range 
then it represents a 32-bit signed quantity and is treated as 
INTEGER*4 data type. 


2.4.2 Real Constants 

A basic real constant is a string of decimal digits with a decimal 
point. 

A basic real constant has the form: 

s.nn OR snn.nn OR snn. 

where nn is a string of numeric characters and s is an optional sign. 
The decimal point can appear anywhere in the string. The number of 
digits is not limited, but only the leftmost eight digits are 
significant. Leading zeros (zeros to the left of the first non-zero 
digit) are ignored when counting the leftmost eight digits. Thus in 
the constant 0.000012345678 all of the non-zero digits are 
significant. 

A basic real constant must contain a decimal point. 

A real constant is a basic real constant or an integer constant or 
basic real constant followed by a decimal exponent of the form: 

Esnn 

where nn is a 1- or 2-digit integer constant and s is an optional 
sign. It represents a power of ten by which the preceding real or 
integer constant is to be multiplied (e.g., 1E6 represents the value 
1.0 x 10 6 ). 


A real constant occupies two words (i.e., four bytes) of PDP-11 
storage and is interpreted as a real number having a degree of 
precision slightly greater than seven decimal digits. 


A minus symbol must appear between the letter E and a negative 
exponent; a plus symbol is optional for a positive exponent. 


Except for 
used) , a 
numerals 0 


algebraic signs, a decimal point, and the 
real constant cannot contain any character 
through 9. 


letter E (if 
other than the 
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1 


If the letter E appears in a real constant, a 1- or 2-digit integer 
constant must follow? the exponent field cannot be omitted, but can 
be zero. 

—38 

The magnitude of a real constant cannot be smaller than 0.29 x 10 
nor greater than 1.7 x 10 38 . 

Examples 


Valid 

Real Constants 


Invalid 

Real Constants 


3.14159 

621712. 

-.00127 

+5.0E3 

2E-3 


1,234,567 

325E-75 

-47.E47 

100 

$25.00 


(Commas not allowed) 
(Too small) 

(Too large) 

(Decimal point missing) 
(Special character 
not allowed) 




* 


2.4.3 Double Precision Constants 

A double precision constant is a basic real constant or an integer 
constant followed by a decimal exponent of the form: 

Dsnn 

where nn is a 1- or 2-digit integer constant and s is an optional 
sign. The number of digits that precede the exponent is not limited, 
but only the leftmost 17 digits are significant. 

A double precision constant occupies four words of PDP-11 storage and 
is interpreted as a real number having a degree of precision 
approximately equal to 17 significant digits. 

A negative double precision constant must be preceded by a minus 
symbol? a positive constant can optionally be preceded by a plus 
symbol. Similarly, a minus symbol must appear between the letter D 
and a negative exponent? a plus symbol is optional for a positive 
exponent. 

The exponent field following the letter D cannot be omitted, but can 
be zero. 

The magnitude of a double precision constant cannot be smaller than 
0.29 x 10“ 38 , nor greater than 1.7 x 10 38 . 

Examples 

1234567890D+5 

+2.71828182846182D00 

-72.5D-15 

1D0 




# 
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2 . 4.4 Complex Constants 

A complex constant is a pair of real constants separated by a comma 
and enclosed in parentheses. The first real constant represents the 
real part of that number and the second represents the imaginary part. 

A complex constant has the form: 

(rc,rc) 

where rc is a real constant. The parentheses and comma are part of 
the constant and must be present. The rules for the constituent real 
constants are given in Section 2.4.2. 

A complex constant occupies four consecutive words of storage and is 
interpreted as a complex number. 

Examples 


(1.70391,-1.70391) 
(+12739E3,0.) 


2.4.5 Octal Constants 

An octal constant is an alternate way of representing an integer 
constant and can be used in a like manner. 

An octal constant has the form: 

"nn 

where nn is a string of octal digits. 

Except for the leading double quote, which must be present, an octal 
constant cannot contain any character other than the numerals 0 
through 7. 

An octal constant cannot be smaller than zero, nor greater than 177777 
in FORTRAN IV or 37777777777 in FORTRAN IV-PLUS. 


Examples 


Valid 

Octal Constants 

"7213 

"1 

"17776 


Invalid 

Octal Constants 

32767 (Double quote missing) 

"184 (Illegal character) 
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2.4.6 Logical Constants 

A logical constant specifies a logical value, "true" 
Therefore, there are only two possible logical constants, 
as: 


or "false". 
They appear 


.TRUE. 


and 


.FALSE. 

The delimiting periods are part of each constant and must be present. 


2.4.7 Hollerith Constants 

A Hollerith constant is a string of ASCII characters preceded by a 
character count and the letter H. 

A Hollerith constant has the form: 

nHc 1 c 0 c_ ... c 
12 3 n 

where n is an unsigned, non-zero integer constant stating the number 
of characters in the string (including spaces and tabs), and each c is 
an ASCII character. The maximum number of characters is 255. 

Hollerith constants are stored as byte strings, one character per 
byte. 

Hollerith constants have no data type. They assume the data type of 
the context in which they appear. 

Examples 

Valid Invalid 

Hollerith Constants Hollerith Constant 

16HT0DAY'SADATEAIS 2 3HABCD (Wrong number of characters) 

1HA 


2.4.7.1 Alphanumeric Literals - An alphanumeric 
alternate form of Hollerith constant. 


literal is 


an 


An alphanumeric literal has the form: 

c 


1c l c 2 c 3 


n 


where each c is a printable ASCII character. Both delimiting 
apostrophes must be present. The maximum number of characters in an 
alphanumeric literal is 255. 


Within an alphanumeric literal, the apostrophe 
represented by two consecutive apostrophes. 


character is 


Examples 


• CHANGEAPRINTERAPAPERATOAPREPRINTEDAFORMANO.A7 21' 
1 TODAY 1 ■S ADATE AlS:AA' 
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2 * 4,7,2 Data Type Rules for Hollerich Constants - When an 
alphanumeric literal or Hollerith constant is used in an expression, 
the data type assumed for the constant is governed by the following 
rules. 

1. In combination with a binary operator, including the 

assignment operator, the type of the constant is the type of 
the other operand. 



Examples: 

Statement Data Type 

REL = 1 ABCD 1 REALM 

IF(I.EQ. 1 XY') GO TO 3 INTEGER*2 
M = N - 'ABC' INTEGER*2 

X = * Z' REAL*4 


Length of Constant 


4 

2 

2 

4 


2 . 


In contexts where a specified data type is required, 
generally integer, that type is assumed for the constant. 

Example: 

Y(IX)=Y('ABC 1 )+3. INTEGER*2 2 

3. When the constant is used as an actual argument, no data type 
is assumed. 

Example: 

CALL APAC ( 1 ABCDEFGHI ') 9 

4. In all other contexts, INTEGER*2 type is assumed. 

Examples: 


IF ('AB') 1,2,3 
»c 1 - 1 A 1 
J= .NOT. * B 1 


INTEGER*2 

INTEGER*2 

TNTEGER*2 


2 

2 

2 


When the length of the constant is less than the length implied by the 
data type, spaces are appended to the constant on the right. When the 
length of the constant is greater than the length implied by the data 
type, the constant is truncated on the right. 

The number of characters required for each data type is illustrated in 
Table 2-2. Each character occupies one byte of storage. 


2.4.8 Radix-50 Constants 

Radix-50 is a special character data representation in which up to 
three characters from the Radix-50 character set (a subset of the 
ASCII character set) can be encoded and packed into a single PDP-11 
word. Radix-50 constants can only be used in DATA statements. 
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A Radix-50 constant has the following form: 

nRc.c 0 ... c 
12 n 

where n is an unsigned non-zero integer constant that states the 
number of characters to follow, and each c is a character from the 
Radix-50 character set. The maximum number of characters is twelve. 
The character count must include any spaces that appear in the 
character string (the space character is a valid Radix-50 character). 

The internal numeric value of any combination of one, two, or three 
Radix-50 characters is tabulated in Appendix A. 

The Radix-50 characters and their code values are: 

Radix-50 Value 
Character (Octal) _ 

Space 0 

A - Z 1-32 

$ 33 

34 

(not used) 35 

0-9 36-47 

Examples 

4RABCD 

6RAATOAA 

4RDK0: (Invalid; colon is not a Radix-50 character) 



% 



2.5 VARIABLES 

A variable is a symbolic name that is associated with a storage 
location. The value of the variable is the value currently stored in 
that location; that value can be changed by assigning a new value to 
the variable. (The form of a symbolic name is given in Section 2.2.) 

Variables are classified by data type, just as constants are. The 
data type of a variable indicates the type of data it represents, its 
precision, and its storage requirements. When data of any type is 
assigned to a variable, it is converted, if necessary, to the data 
type of the variable. The data type of a variable may be established 
either by type declaration statements, IMPLICIT statements, or 
predefined typing rules. 

Two or more variables are associated with each other when each is 
associated with the same storage location; or, partially associated, 
when part (but not all) of the storage associated with one variable is 
the same as part or all of the storage associated with another 



* 
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f X ^nMMnH As f°^ latlon and partial association occur through the use 
of COMMON statements, EQUIVALENCE statements, and through the use of 
actual arguments and dummy arguments in subprogram references. 


A variable is said to be defined if the storage with which it is 
associated contains a datum of the same type as the name. A variable 
can be defined prior to program execution by means of a DATA statement 
or during execution by means of assignment or input statements. 


If variables of differing types are associated (or partially 
associated) with the same storage location, then defining the’value of 
one variable (for example, by assignment) causes the value of the 
other variable to become not defined. 


2.5.1 Data Type Specification 

Type declaration statements (Section 7.2) specify that given variables 
are to represent specified data types. For example: 

COMPLEX VARl 

DOUBLE PRECISION VAR2 


These statements indicate that the variable VARl is to be associated 
with a 4-word storage location that is to contain complex data, and 
that the variable VAR2 is to be associated with a 4-word double 
precision storage location. 


The IMPLICIT statement (Section 7.1) has a broader scope: it states 
that any variable having a name that begins with a specified letter, 
or any letter within a specified range, is to represent a specified 
data type, in the absence of an explicit type declaration. 


The data type of a variable can be explicitly specified only once. An 
explicit type specification takes precedence over the type implied bv 
an IMPLICIT statement. 


2.5.2 Data Type by Implication 

In the absence of any IMPLICIT statements, all variables having names 
beginning with I, J, K, L, M, or N are assumed to represent integer 
data. Variables having names beginning with any other letter are 
assumed to be real variables. For example: 

Real Variables Integer Variables 

ALPHA KOUNT 


BETA 


ITEM 


TOTAL 


NTOTAL 


2.6 ARRAYS 


An array 
single 
locations 
appended 

2 . 6 . 2 . 


is a group 
symbolic 
, called 
to the 


of contiguous storage locations associated with a 
name, the array name. The individual storage 
array elements, are referenced by a subscript 
array name. Subscripts are discussed in Section 
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An array can have from one to seven dimensions. A column of figures 
is an example of a 1-dimensional array. Several columns of figures 
would represent a 2-dimensional array; to refer to a specific value 
in this array, both its entry (or row) number and its column number 
must be specified. If this cable of figures covered several pages, 
the array would be 3—dimensional• To locate a value in a 
3-dimensional array, the row number, a column number, and a page (or 
level) number must be specified. 

The following FORTRAN statements establish arrays: 

1. Type declaration statements (Section 7.2), 

2. DIMENSION statement (Section 7.3), and 

3. COMMON statement (Section 7.4). 

These statements, containing array declarators (array declarators are 
discussed in the following sub—section) , define the name of the array, 
the number of dimensions in the array, and the number of elements in 
each dimension. 


2.6.1 Array Declarators 

An array declarator specifies the symbolic name that identifies an 
array within a program unit and indicates the properties of that 
array. 

An array declarator has the form: 
a (d[ ,d] . . .) 

a is the symbolic name of the array — the array name. 

(The form of a symbolic name is given in Section 2.2.) 

d is a dimension declarator. 

The number of dimension declarators indicates the number of dimensions 
in the array. The minimum number of dimensions is one and the maximum 
number is seven. 

The value of a dimension declarator specifies the number of elements 
in that dimension. For example, a dimension declarator value of 50 
indicates that the dimension contains 50 elements. The dimension 
declarators can be constant or variable. Variable dimension 
declarators are used to define adjustable arrays (see Section 2.6.6) . 
The number of elements in an array is egual to the product of the 
number of elements in each dimension. 

An array name can appear in only one array declarator within a program 
unit. 


FORTRAN IV-PLUS permits the dimension declarator to specify a lower 
bound as well as an upper bound for any dimension of an array. This 
upper and lower bound dimension declarator has the form: 

[dl:]du 
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is the lower bound of the dimension, 
is the upper bound of the dimension. 

The value of the lower bound dimension declarator can be negative, 
zero, or positive. The value of the upper bound dimension declarator 
muse not be less than the corresponding lower bound dimension 
declarator. The number of elements in the dimension is du-dl+1. 


If the lower bound dimension declarator is omitted, it is 
be one. 


assumed to 


2.6.2 Subscripts 

A subscript qualifies an array name. A subscript is a list of 
subscript expressions enclosed in parentheses that determines which 
element in the array is referenced. The subscript is appended to the 
array name it qualifies. 

A subscript has the form: 

(s[ ,s]. . .) 

s is a subscript expression. 

In any subscripted array reference, there must be one subscript 
expression for each dimension defined for that array (one for each 
dimension declarator). For example, the following entry could be used 
to refer to the element located in the first row, third column, second 
level of the array COS in Figure 2-1 (which is the element occupying 
memory position 16). 

COS(1,3,2) 

Each subscript expression can be any valid arithmetic expression. If 
the value of a subscript expression is not of type Integer, it is 
converted to Integer before use. 


2.6.3 Array Storage 

As discussed earlier in this section, it is convenient to think of the 
dimensions of an array as rows, columns, and levels or planes. 
However, the FORTRAN system always stores arrays in memory as a linear 
sequence of values. A l~dimensional array is stored with its first 
element in the first storage location and its last element in the last 
storage location of the sequence. A multi-dimensional array is stored 
such that the leftmost subscripts vary most rapidly. This is called 
the "order of subscript progression". For example, consider the 
following array declarators and the arrays that they create: 
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1-Dimensional Array ARC(6) 



Memory Positions 


2-Dimensional Array TAN(3,4) 


1 

TAN(1,1) 

4 

TAN(1,2) 

7 

TAN(1,3) 

10 

TAN(1,4) 

2 

TAN(2,1) 

5 

TAN(2,2) 

8 

TAN(2,3) 

11 

TAN(2,4) 


TAN(3,1) 

6 

TAN(3,2) 

9 

TAN(3,3) 

12 

TAN(3,4) 


Memory Positions 


3-Dimensional Array COS(3,3,3) 



19 

COS(1,1,3) 

22 

COS(1,2,3) 

25 

COS(1,3,3) 



20 

COS(2,1,3) 

23 

COS(2,2,3) 

26 

COS(2.3,3) 


nr 

COS(1,1,2) 

13 

COS (1,2,2) 

16 

COS(1,3,2) 

27 

COS(3,3,3) 


ii 

COS(2,1,2) 

14 

CCS(2,2,2) 

17 

COS (2,3,2) 


1 

COS(l,l,l) 


COS(1 # 2 f 1) 

7 

COS(1*3*1) 


18 

COS(3,3,2) 

2 

COS(2,1,1) 

5 

COS(2,2,1) 

3 

COS(2,3,1) 



3 

COS(3,1,1) 

6 

COS(3,2,1) 

9 

COS(3,3,1) 



Memory Positions 


Figure 2-1 
Array Storage 


2.6.4 Data Type of an Array 

The data type of an array is specified in the same way as the data 
type of a variable? that is, implicitly by the initial letter of the 
name, or explicitly by a type declaration statement. 

All of the values in an array are of the same data type. Any value 
assigned to an array element is converted to the data type of the 
array. If an array is named in a DOUBLE PRECISION statement, for 
example, the compiler allocates a 4-word storage location for each 
element of the array. When a value of any type is assigned to any 
element of that array, it is converted to double precision. 

The compiler stores LOGICAL*! array elements in adjacent bytes. 


2.6.5 Array References without Subscripts 

In the following types of statements, an array name can appear without 
a subscript to specify that the entire array is to be used (or 
defined). 
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Type declaration statements 
COMMON statement 
DATA statement 
EQUIVALENCE statement 
FUNCTION statement 
SUBROUTINE statement 
CALL statement 
Input/Output statements 


Unsubscripted array names can also be used as actual arguments. The 
use of unsubscripted array names in all other types of statements is 
illegal. 


2.6.6 Adjustable Arrays 

Adjustable arrays are used within a single subprogram to process 
arrays with different dimension bounds by specifying the bounds as 
well as the array name as subprogram arguments. 

An adjustable array declarator has variable dimension declarators. In 
such an array declarator, each dimension declarator must be either an 
integer constant or an integer dummy argument, and the array name thus 
declared must also appear as a dummy argument. (Consequently, 
adjustable array declarators can not be used in main program units.) 

On entry to a subprogram containing adjustable array declarators, each 
dummy argument used in a dimension declarator must become associated 
with an integer actual argument. The values of the associated actual 
arguments are used together with any constants appearing in the array 
declarators to form an effective array declarator which determines the 
properties of the adjustable array for that execution of the 
subprogram. 

The values of dummy arguments used in adjustable array declarators 
must not be changed within the subprogram. 

The effective size of the dummy array must be equal to or less then 
the actual size of the associated array. 

The function in the following example computes the sum of the elements 
of a two-dimensional array. Note the use of the parameters M and N to 
control the iteration. 

FUNCTION SUM(A,M,N) 

DIMENSION A(M,N) 

SUM =0.0 
DO 10, I = 1,M 
DO 10, J = 1,N 
10 SUM = SUM + A(I,J) 

RETURN 

END 
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Following are sample calls on SUM: 

DIMENSION Al(10,35), A2(3 f 56) 
SUMl = SUM(Al,10,35) 

SUM2 = SUM(A2,3,56) 

SUM3 = SUM(Al,10,10) 


In addition, dimension declarators can be expressions provided: 

1. Each operand is an integer constant, or an integer dummy 
argument, or an integer variable in a COMMON block which is 
defined on entry to the subprogram, 

2 . Each operator is one of the operators + , -, *, /, or **. 

(Array references and function references are not permitted,) 

Note that the upper and lower bound values are determined once each 
time a subprogram is entered and will not change during the execution 
of that subprogram even if the values of variables contained in the 
array declaration are changed. For example, in 

DIMENSION ARRAY (11,5) 

L = L 
M = M 

CALL SUB(ARRAY,L,M) 

END 

SUBROUTINE SUB(X,T,J) 

DIMENSION X(-1/2:1/2,J) 

J = 1 
1 = 2 
END 

the adjustable array X will be declared as X(~4:4,5) on entry to 
subroutine SUB. The assignments to I and J will not affect that 
declaration. 


2.7 EXPRESSIONS 


An expression represents a single value. It can be a single basic 
component, such as a constant or variable, or a combination of basic 
components with one or more operators. Operators specify computations 
co be performed, using the values of the basic components, to obtain a 
single value. 

Expressions can be classified as arithmetic, relational, or logical. 
Arithmetic expressions yield numeric values; relational and logical 
expressions produce logical values. 


2.7.1 Arithmetic Expressions 

Arithmetic expressions are formed with arithmetic elements and 
arithmetic operators. The evaluation of such an expression yields a 
single numeric value. 
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An arithmetic element may be any of the following: 

1. A numeric constant 

2. A numeric variable 

3. A numeric array element 

4. An arithmetic expression enclosed in parentheses 

5. An arithmetic function reference (Functions and function 
references are described in Chapter 8.) 

The term "numeric" in these cases can also be interpreted to include 
logical data, since data of this type is treated as integer data when 
used in an arithmetic context. 

Arithmetic operators specify a computation to be performed using the 
values of arithmetic elements; they produce a numeric value as a 
result. The operators and their meanings are: 

Function 


Exponentiation 
Multiplication 
Division 

Addition and Unary Plus 

Subtraction and Unary Minus 

The above are called binary operators, because each is used in 
conjunction with two elements. The + and - symbols can also be used 
as unary operators when written immediately preceding an arithmetic 
element to denote a positive or negative value. 

Any arithmetic operator can be used in conjunction with any valid 
arithmetic element except for certain restrictions noted below. 

A value must be assigned to a variable or array element before it can 
be used in an arithmetic expression. 

The following table illustrates the permitted combinations of base and 
exponent data type for the exponentiation operator. 


Operator 

** 

* 

/ 

+ 


BASE 

EXPONENT 

Integer 

Real 

Double 

Complex 

Integer 

Yes 

No 

No 

No 

Real 

Yes 

Yes 

Yes 

No 

Double 

Yes 

Yes 

Yes 

No 

Complex 

Yes 

No 

No 

No 
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In addition, a negative element can only be exponentiated by an 
integer element; an element having a value of zero cannot be 
exponentiated by another zero-value element. 

In any valid exponentiation, the result is of the same data type as 
the base element, except in the case of a real base and a double 
precision exponent; the result in this case is double precision. 

Arithmetic expressions are evaluated in an order determined by a 
precedence associated with each operator. The precedence of the 
operators is: 


Operator 


Precedence 


** First 

* and / Second 

+ and - Third 

Whenever two or more operators of equal precedence (such as + and -) 
appear, they can be evaluated in any order chosen by the compiler so 
long as the actual order of evaluation is algebraically equivalent to 
a left to right order of evaluation. Exponentiation, however, is 
evaluated right to left. For example A**B**C is evaluated as 
A** (B**C). 


2.7.1.1 Use of Parentheses - Parentheses can be used to override the 
normal evaluation order. An expression enclosed in parentheses is 
treated as a single arithmetic element. That is, it is evaluated 
first to obtain its value, then that value is used in the evaluation 
of the remainder of the larger expression of which it is a part. An 
example of the effect of parentheses is shown below (the numbers below 
the operators indicate the order in which the operations are 
performed). 

4 + 3*2-6/2 = 7 
t t t t 

2 14 3 

(4+3) *2-6/2= 11 
+ t + T 

12 4 3 

(4 + 3 *2 - 6)/ 2 = 2 

t f- t t 

2 13 4 

((4+3) *2-6) / 2 = 4 

t t t t 

12 3 4 

Evaluation of expressions within parentheses takes place according to 
the normal order of precedence. 
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Nonessential parentheses, such as in the expression 
4 + (3*2) - (6/2) 


have no effect on the evaluation of the expression 


The use of parentheses to specify the evaluation 
important in high accuracy numerical programs where 
that are algebraically equivalent might not be 
equivalent when carried out on a computer. 


order is often 
evaluation orders 
computationally 


• 7 * 2 ^_- ata T yP e of a n Arithmetic Expression - If every element in 
hv f‘ rithmetlc . ex Pression is of the same data type, the value produced 

tTO^ e S r XPreS h'° n / S alS ° ° f that type * If elements of different data 
tl* ! combined in an expression, the evaluation of that expression 
and the data type of the resulting value are dependent on a rank 

i^a^follows* th eaCh data type ‘ The rank assi 9 ned to each data type 


Data Type Rank 

Logical 1 (Low) 

Integer 2 

Real 3 

Double Precision 4 

Complex 5 (High) 


The data type of the value produced by an operation on two arithmetic 
elements of differing type is the same as that of the highest-ranked 
element in the operation. The data type of an expression is the same 
as the data type of the result of the last operation in that 
expression. The way in which the data type of an expression is 
determined is as follows: 


1. Integer operations - Integer operations are performed only on 
integer elements.. (When used in an arithmetic context, octal 
constants and logical entities are treated as integers.) In 
integer arithmetic, any fraction that can result from 
division is truncated, not rounded. For example, the value 
of the expression 

1/3 + 1/3 + 1/3 


is zero, not one. 


2. Real operations - Real operations are performed only on real 
elements or a combination of real and integer elements. Any 
integer elements present are converted to real type by giving 
each a fractional part equal to zero. The expression is then 
evaluated using real arithmetic. Note, however, that in the 
statement Y = (I/J)*X, an integer division operation is 
performed on I and J and a real multiplication is performed 
on the result and X. 
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Double Precision operations - Any real or integer element in 
a double precision operation is converted to double precision 
type by making the existing element the most significant 
portion of a double precision datum? the least significant 
portion is zero. The expression is then evaluated in double 
precision arithmetic. 


NOTE 

The conversion of a real element to 
double precision does not increase its 
accuracy. For example, the real number 
0.3333333 becomes 0.3333333000000000 
when converted, not 0.3333333333333333. 
Also note that real and double precision 
elements are only approximate 
representations of actual numbers. 
Values resulting from a real or double 
precision expression are only as 
accurate as the degree of precision for 
that data type. 


* 


« 



Complex operations - In an operation that contains any 
complex element, integer elements are converted to real type 
as previously described. Double precision elements are 
converted to real type by the rounding of the least 
significant portion. The real element thus obtained is 
designated as the real part of a complex number? the 
imaginary part is zero. The expression is then evaluated 
using complex arithmetic and the resulting value is of type 
complex. 


2.7.2 Relational Expressions 

A relational expression consists of two arithmetic expressions 
separated by a relational operator. The value of the expression is 
either true or false, depending on whether or not the stated 
relationship exists. 

A relational operator tests for a relationship between two arithmetic 
expressions. These operators are: 


Operator 

Relationship 

.LT. 

Less than 


.LE. 

Less than 

or equal to 

.EQ. 

Equal to 


.NE. 

Not equal 

to 

.GT. 

Greater than 

.GE. 

Greater than or equal to 



* 


The delimiting periods are part of each operator and must be present, 
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Complex expressions can be related by the .EQ. 
oniy. (If one complex expression is present, 
to complex type.) Complex entities are equal if 
real and imaginary parts are both equal. 


and .NE. operators 
the other is converted 
their corresponding 


In a relational expression, the arithmetic 
first to obtain their values. Those 
determine if the relationship stated by 
example, the expression: 


expressions are evaluated 
values are then compared to 
the operator exists. For 


APPLE+PEACH .GT. PEAR+ORANGE 


ppar« S ^ he rel f tlon f hl P' Th e sum of the real variables APPLE and 
t^ A rr J . 1S greater than the sum of the real variables PEAR and ORANGE." 
If that relationship does in fact exist, the value of the expression 
is true; if not, the expression is false. 


All relational operators have the same precedence. Thus, if two or 
mo !f e . relational expressions appear within an expression, the 
relational operators are evaluated from left to right. Arithmetic 
operators have a higher precedence than relational operators. 


Parentheses can be used to alter the evaluation of the 
expressions in a relational expression exactly as in 
arithmetic expression; but since arithmetic operators are c , aiUfl[e a 
Detore relational operators, it is unnecessary to enclose the entire 
arithmetic expression in parentheses. 


arithmetic 
any other 
evaluated 


When two expressions of different data types are compared by a 
relational expression, the value of the expression having 
lower-ranked data type is converted to the higher-ranked data 
before the comparison is made 


2*7.3 Logical Expressions 

A logical expression may be a single logical element, or may be a 
combination of logical elements and logical operators. A logical 
expression yields a single logical value, true or false. 

A logical element can be any of the following: 

1. An Integer or Logical constant 

2. An Integer or Logical variable 

3. An Integer or Logical array element 

4. A relational expression 

5. A logical expression enclosed in parentheses 

6 . An Integer or Logical function reference (Functions and 
function references are described in Chapter 8.) 
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The 


logical operators 


are: 



Operator Example 


Meaning 


.AND. 


.OR. 


. XOR • 


.EQV. 


A .AND. B 

A .OR. B 


A .XOR. B 


A .EQV. B 


Logical conjunction. The expression is true 
if, and only if, both A and B are true. 

Logical disjunction (inclusive OR). The 
expression is true if, and only if, either A 
or B, or both, is true. 

Logical exclusive OR. The expression is 
true if A is true and B is false, or vice 
versa, but is false if both elements have 
the same value. 

Logical equivalence. The expression is true 
if, and only if, both A and B have the same 
logical value, whether true or false. 


.NOT. .NOT. A 


Logical negation. The expression is true 
if, and only if, A is false. 


The delimiting periods of logical operators must be present. 


When a logical operator is used to operate on logical elements, the 
resulting value is of type logical. When a logical operator is used 
with integer elements, the logical operation is carried out bit-by-bit 
on the corresponding bits of the internal (binary) representation of 
the integer elements. The resulting value has type integer. When 
integer and logical values are combined with a logical operator, the 
logical value is first converted to an integer value, then the 
operation is carried out as for two integer elements. The resulting 
type is integer. 

Evaluation of a logical expression is performed according to an order 
of precedence assigned to its operators. Some logical expressions can 
be evaluated without evaluating all sub-expressions; for example, if 
A is .FALSE. then the expression A .AND. (F(X,Y) .GT. 2.0) .AND. B 
is .FALSE.. The value of the expression can be determined by testing 
A without evaluating F(X,Y). With this method of evaluation, the 
function subprogram F is not necessarily called and side-effects 
resulting from the call can not occur. 


A summary of all operators that may appear in a logical 
and the order in which they are evaluated follows. 


expression, 


► 


« 


* 
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Operator 

Evaluated 

* * 

First 

*,/ 

Second 

+#- 

Third 

Relational 

Operators 

Fourth 

.NOT. 

Fifth 

.AND. 

Sixth 

.OR. 

Seventh 

.XOR.,.EQV. 

Eighth 


Operators of equal rank are evaluated from left to right. An example 
of the sequence in which a logical expression is evaluated is as 
follows: 

A*B+C*ABC .EQ. X*Y+DM*ZZ .AND. .NOT. K*B .GT. TT 
is evaluated as: 

( ( (A*B) + (C*ABC) ) .EQ. ( (X*Y) + (DM*ZZ) ) ) .AND. (.NOT. ( (K*B) .GT.TT) ) 


Parentheses may be used to alter the normal sequence of evaluation, 
just as in arithmetic expressions. 

Two logical operators cannot appear consecutively, except where the 
second operator is .NOT.. 
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ASSIGNMENT STATEMENTS 


Assignment statements define the value of a variable or array element 
by evaluating an expression and assigning the resulting value to the 
variable or array element. 

There are three types of assignment statements: 

1. Arithmetic assignment statement 

2 . Logical assignment statement 

3. ASSIGN statement 


3.1 ARITHMETIC ASSIGNMENT STATEMENT 

The arithmetic assignment statement assigns the value of the 
expression on the right of the equal sign to the variable or array 
element on the left of the equal sign. The previous value of the 
variable, if any, is lost. 

The arithmetic assignment statement has the form: 
v = e 

v is a numeric variable name or array element name, 
e is an expression. 


The equal sign does not mean "is equal to", as in mathematics. It 
means "is replaced by". Thus, the statement: 

KOUNT = KOUNT + 1 

means, "Replace the current value of the integer variable KOUNT with 
the sum of that current value and the integer constant 1". 

Although the symbolic name to the left of the equal sign can be 
undefined, values must have been previously assigned to all symbolic 
references in the expression. 

The expression must yield a value that conforms to the requirements of 
the variable or array element to which it is to be assigned (for 
example, a real expression that produces a value greater than 32767 is 
illegal if the entity on the left of the equal sign is an INTEGER*2 
variable). 
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If the data type of the variable or array element on the left of the 
equal sign is the same as that of the expression on the right, the 
statement assigns the value directly. If the data types are 
different, the value of the expression is converted to the data type 
of the entity on the left of the equal sign before it is assigned. A 
summary of data conversions on assignment is shown in Table 3 1. 


Table 3-1 

Conversion Rules for Assignment Statements 



EXPRESSION (E) 

VARIABLE 

OR ARRAY 
ELEMENT 
(V) 

INTEGER, 

LOGICAL, 

OR 

OCTAL CONSTANT 

REAL 

DOUBLE 

PRECISION 

COMPLEX 

INTEGER 

Assign E to V 

Truncate E to 
integer and 
assign to V 

Truncate E to 
integer and 
assign to V 

Truncate real 

part of E to 
integer and 
assign to V? 
imaginary part 
of E is not used 

REAL 

Append fraction 
(.0) to E and 
assign to V 

Assign E to V 

Assign MS 
portion of E to 
V? LS portion 
of E is rounded 

Assign real 
part of E to V; 
imaginary part 
of E is not used 

DOUBLE 

PRECISION 

Append fraction 
(.0) to E and 
assign to MS 
portion of V? 

LS portion of 

V is zero 

Assign E to MS 
portion of V? 

LS portion of 

V is zero 

Assign E to V 

Assign real 
part of E to 

MS portion of 

V; LS portion 
of V is zero, 
imaginary part 
of E is not used 

COMPLEX 

Append fraction 
(.0) to E and 
assign to real 
part of V? 
imaginary part 
of V is 0.0 

Assign E to 
real part of V; 
imaginary part 
of V is 0.0 

Assign MS 
portion of E 
to real part of 
V; LS portion 
of E is rounded? 
imaginary part 
of V is 0.0 

Assign E to V 

1 

] 

US = Most Significant (high-order) 

LS = Least Significant (low-order) 
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Examples 


Valid Statements 
BETA = -1./(2.*X)+A*A/(4.*(X*X)) 

PI = 3.14159 
SUM = SUM+1. 

Invalid Statements 

3.14 = A-B (Entity on the left must be a 

variable or array element.) 

-j = 1**4 (Entity on the left must not be 

signed.) 

ALPHA = ((X+6)*B*B/(X-Y) (Invalid; left and right 

parentheses do not balance.) 


3.2 LOGICAL ASSIGNMENT STATEMENT 

The logical assignment statement is similar to the arithmetic 
assignment statement, but operates with logical data. The logical 
assignment statement evaluates the expression on the right side of the 
equal sign and assigns the resulting logical value to the variable or 
array element on the left. 

The logical assignment statement has the form: 
v = e 

v is a variable or array element of type Logical, 
e is a logical expression. 


The variable or array element on the left of the equal sign must be of 
type Logical; its value can be undefined. 

Values, either numeric or logical, must have been previously assigned 
to all symbolic references that appear in the expression. The 
expression must yield a logical value. 

Examples 

PAGEND = .FALSE. 

PRNTOK = LINE .LE. 132 .AND. .NOT. PAGEND 
ABIG = A .GT. B .AND. A .GT. C .AND. A .GT. D 


3-3 









ASSIGNMENT STATEMENTS 


ASSIGN 


3.3 ASSIGN STATEMENT 

The ASSIGN statement is used to associate a statement label with an 
integer variable. The variable can then be used as a transfer 
destination in a subsequent assigned GO TO statement (see Section 
4.1.3). 

The ASSIGN statement has the form: 

ASSIGN s TO v 

s is the label of an executable statement in the same program 
unit as the ASSIGN statement. (It must not be the label of a 
FORMAT statement.) 

v is an integer variable. 

The ASSIGN statement assigns the statement number to the variable in a 
manner similar to that of an arithmetic assignment statement, with one 
exception: the variable becomes defined for use as a statement label 

reference and becomes undefined as an integer variable. 

The ASSIGN statement must be executed before the assigned GO TO 
statement (s) in which the assigned variable is to be used. The ASSIGN 
statement and the assigned GO TO statement (s) must occur in the same 
program unit. 

The statement 

ASSIGN 100 TO NUMBER 

associates the variable NUMBER with the statement label 100. 
Arithmetic operations on the variable, such as in the statement 

NUMBER = NUMBER+1 

then become invalid, since a statement label cannot be altered. The 
statement: 


NUMBER = 10 

dissociates NUMBER from statement 100, assigns it an inteqer value 10, 
and returns it to its status as an integer variable. It can no longer 
be used in an assigned GO TO statement. 

Examples 

ASSIGN 10 TO NSTART 
ASSIGN 99999 TO KSTOP 

ASSIGN 250 TO ERROR (ERROR must have been defined as an 

integer variable.) 
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CONTROL STATEMENTS 


Statements are normally executed in the order in which they are 
written. However, it is frequently desirable to interrupt the normal 
program flow by transferring control to another section of the program 
or to a subprogram. Transfer of control from a given point in the 
program may occur every time that point is reached in the program 
flow, or may be based on a decision made at that point. 

Transfer of control, whether within a program unit or to another 
program unit, is. performed by control statements. These statements 
also govern iterative processing, suspension of program execution, and 
program termination. The various types of control statements are: 

GOTO 

IF 

DO 

CONTINUE 

CALL 

RETURN 

PAUSE 

STOP 

END 


GO TO 

4.1 GO TO STATEMENTS 

GO TO statements transfer control within a program unit, either to the 
same statement every time or to one of a set of statements, based on 
the value of an expression. 

The three types of GO TO statements are: 

1. Unconditional GO TO statement 

2. Computed GO TO statement 

3. Assigned GO TO statement 
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4.1.1 Unconditional GO TO Statement 

The unconditional GO TO statement transfers control to the same 
statement every time it is executed. 

The unconditional GO TO statement has the form: 

GO TO s 

s is the label of an executable statement in the same program 
unit as the GO TO statement. 

The unconditional GO TO statement transfers control to the statement 
identified by the specified label. The statement label must identify 
an executable statement in the same program unit as the GO TO 
statement. 


Examples 

GO TO 7734 
GO TO 99999 

GO TO 27.5 (Invalid; the statement label is improperly 

formed.) 


4.1.2 Computed GO TO Statement 

The computed GO TO statement transfers control to a statement based on 
the value of an expression within the statement. 

The computed GO TO statement has the form: 

GO TO (slist) [, ] e 

slist is a list of one or more executable statement labels 
separated by commas. The list of labels is called the 
transfer list. 

e is an arithmetic expression the value of which falls within 
the range 1 to n (where n is the number of statement labels 
in the transfer list). 

The computed GO TO statement evaluates the expression e and, if 
necessary, converts the resulting value to integer type. The GO TO 
statement then transfers control to the e'th statement label in the 
transfer list. That is, if the list contains (30,20,30,40), and the 
value of e is 2, the GO TO statement transfers control to statement 
20, and so on. 

If the value of the expression is less than 1, or greater than the 
number of labels in the transfer list, control transfers to the first 
executable statement following the computed GO TO. 
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Examples 

GO TO (12,24,36),INCHES 

GO TO (320,330,340,350,360) SITU(J,K)+1 


4.1.3 Assigned GO TO Statement 

The assigned GO TO statement transfers control to a statement label 
that is represented by a variable. Because the relationship between 
the variable and a specific statement label must be established by an 
ASSIGN statement, the transfer destination may be changed, depending 
upon which ASSIGN statement was most recently executed. 

The assigned GO TO statement has the form: 

GO TO v[ [,] (slist) ] 

is an integer variable. 

(when present) is a list of one or more executable 
statement labels separated by commas. 

The assigned GO TO statement transfers control to the statement whose 
label was most recently assigned to the variable v by an ASSIGN 
statement. 

The variable v must be of Integer type and must have been assigned a 
s ^ a ^ en ' er 't label value by an ASSIGN statement (not an arithmetic 
assignment statement) prior to. the execution of the GO TO statement. 

The assigned GO TO statement and its associated ASSIGN statement(s) 
must exist in the same program unit. Statements to which control is 
transferred must be executable statements in the same program unit. 

Examples 


v 

slist 


GO TO IGO 

GO TO INDEX, (300,450,1000,25) 


In FORTRAN IV-PLUS, if the statement label value of v is not present 
m the list slist (and a list is specified), control transfers to the 
next executable statement following the assigned GO TO statement. 


IF 

4.2 IF STATEMENTS 

An IF statement causes a conditional control transfer or the 
conditional execution of a statement. There are two types of IF 
statements: 

1. Arithmetic IF statement 

2. Logical IF statement 
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In either type, the decision to transfer control or to execute the 
statement is based on the evaluation of an expression within the IF 
statement. 


4.2.1 Arithmetic IF Statement 

The arithmetic IF statement is used for conditional control transfers. 
It can transfer control to one of three statements, based on the value 
of an arithmetic expression. 

The arithmetic IF statement has the form: 

IF (e) si, s2, s3 

e is an arithmetic expression. 

si,s2,s3 are the labels of executable statements in the same program 
unit. 

All three labels must be present. They need not refer to three 
different statements. If desired, one or two labels can refer to the 
statement that immediately follows the IF statement. 

The arithmetic IF statement first evaluates the expression in 
parentheses and then transfers control to one of the three statement 
labels in the transfer list, as follows: 

If the Value is: Control Passes to: 


Less than 0 
Equal to 0 
Greater than 0 


Label si 
Label s2 
Label s3 


Examples 


IF (THETA-CHI) 50,50,100 

This statement transfers control to statement 50 if the real variable 
THETA Is less than or equal to the real variable CHI. Control passes 
to statement 100 only if THETA is greater than CHI. 

IF (NUMBER/2* 2-NUMBER) 20,40,20 

This statement transfers control to statement 40 if the value of the 
integer variable NUMBER is even and to statement 20 if it is odd. In 
this case, the third statement label must be present although it is 
not used, since the expression can have only negative or zero values. 


4.2.2 Logical IF Statement 

A logical IF statement causes a conditional statement execution. The 
decision to execute the statement is based on the value of a logical 
expression within the statement. 
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'Ihe logical IF statement has the form: 

IF (e) st 

e is a logical expression. 

st is a complete FORTRAN statement. The statement can be any 
executable statement except a DO statement or another loqical 
IF statement. 


The logical IF statement first evaluates the logical expression. If 
the value of the expression is true, the"contained statement is 
executed. If the value of the expression is false, control transfers 
to the next executable statement following the logical IF without 
executing the contained statement. 


Examples 


IF (J .GT. 4 .OR. J .LT. 1) GO TO 250 

IF (REF(J,K) .NE. HOLD) REF (J,K) = REF(J,K)*(-1D0) 

IF (ENDRUN) CALL EXIT 


DO 

4.3 DO STATEMENT 

DO statements are used to specify iterative processing. The DO 
statement causes the statements in its range to be repeatedly executed 
a specified number of times. 

The DO statement has the form: 


# 


DO s[,] i=el/e2 [, e 3] 

s is the label of an executable statement. The statement 

must physically follow in the same program unit. 

i is an integer variable. 

el,e2,e3 are integer expressions. 


The variable i is called the control variable of 
are called the initial, terminal, and 
respectively. If the increment parameter is 
increment value of 1 is used. 


the DO and el,e2,e3 
increment parameters 
omitted, a default 


The terminal statement of a DO loop is identified by the label that 
appears in the DO statement. It must not be a GO TO statement, an 
arithmetic IF statement, a RETURN statement, or another DO statement. 
A logical IF statement is acceptable as the terminal statement, 
provided it does not contain any of the above statements. 


The statements that follow the DO statement, up to and including the 
terminal statement are in the range of the DO loop. 
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__ _MMBMI 

In FORTRAN TV-PLUS, the control variable can be of type INTEGER*2, 
INTEGERM, REAL, or DOUBLE PRECISION. The initial, terminal, and 
increment parameters can be of any type and are converted, before use, 
to the type of the control variable, if necessary. 


The DO statement first evaluates the expressions el, e2, e3 to 
determine values for the initial, terminal, and increment parameters. 
The value of the initial parameter is then assigned to the control 
variable. The executable statements in the range of the DO loop are 
then executed repeatedly. 

If the increment parameter is positive, the value of the terminal 
parameter must not be less than that of the initial parameter. 
Conversely, if the increment parameter is negative, the value of the 
terminal parameter must not be greater than that of the initial 
parameter. The value of the increment parameter must not be zero. 


The number of executions of the DO range, called the iteration count, 
is given by 


e2 - 


e3 


el 


+1 


where [X] represents the largest integer whose magnitude does not 
exceed the magnitude of X and whose sign is the same as that of X. 

If the iteration count is zero or negative, then the loop is executed 
once. 


4.3.1 DO Iteration Control 

For each iteration of the DO loop, following execution of the terminal 
statement, the DO iteration control is executed: 

1. The value of the increment parameter is algebraically added 
to the control variable. 

2. The iteration count is decremented. 

3. If the iteration count value is greater than zero, control is 
transferred to the first executable statement following the 
DO statement for another iteration of the range. 

4. If the iteration count is zero, execution of the DO 
terminates. 

The execution of a DO can also be terminated by a statement within the 
range that transfers control outside the loop. The control variable 
of the DO remains defined with its current value. 

When execution of a DO loop terminates, if other DO loops share this 
terminal statement, control transfers outward to the next most 
enclosing DO loop in the DO nesting structure (Section 4.3.2). If no 
other DO loop shares this terminal statement, or if this DO is the 
outermost DO, control transfers to the first executable statement 
following the terminal statement. 
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The value of the control variable 
parameter must not be altered 
The control variable is available 
the range. 


, terminal parameter, or increment 
within the range of the DO statement, 
for reference as a variable within 


In FORTRAN IV PLUS, the terminal and increment parameters can be 
modified within the loop without affecting the iteration count. 


T he range of a DO loop can contain other DO statements, as long as 
chose nested" DO loops conform to certain requirements (see Section 


Control can be transferred out of a DO loop, but cannot be transferred 
into a loop from elsewhere in the program. Exceptions to this rule 
are described in Sections 4.3.3 and 4.3.4. 

Examples 


DO 100 K=1,50,2 (25 iterations, K=49 during final 

iteration) 

DO 350 J=50,-2,-2 (27 iterations, J=~2 during final 

iteration) 

DO 25 IVAR=1,5 (5 iterations, IVAR=5 during final 

iteration) 

DO NUMBER=5,40,4 (Invalid; statement label missing) 

DO 40 M=2.10 (Invalid; decimal point instead of comma) 

The last example illustrates a common clerical error. It is a valid 
arithmetic assignment statement in the FORTRAN language: 

DO40M = 2.10 


4.3.2 Nested DO Loops 

A DO loop may contain one or more complete DO loops. The range of an 
inner nested DO must lie completely within the range of the next outer 
loop. Nested loops may share the same terminal statement. 
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Correctly Nested 
DO Loops 


Incorrectly Nested 
DO Loops 


DO 45 K=l,10 


DO 15 K=l,10 


DO 35 L=2,50,2 



L 35 CONTINUE 


15 CONTINUE 


DO 45 M=l,20 


DO 30 M=l,15 


L 45 CONTINUE 


25 CONTINUE 


L30 CONTINUE 


Figure 4-1 
Nesting of DO Loops 


4.3.3 Control Transfers in DO Loops 

Within a nested DO loop structure, control can transfer from an inner 
loop to an outer loop. A transfer from an outer loop to an inner loop 
is illegal. 

If two or more nested DO loops share the same terminal statement, 
control can be transferred to that statement only from within the 
range of the innermost loop. Any other transfer to that statement 
constitutes a transfer from an outer loop to an inner loop because the 
shared statement is part of the range of the innermost loop. 


4.3.4 Extended Range 

A DO loop is said to have an extended range if it contains a control 
statement that transfers control out of the loop and if, after the 
execution of one or more statements, another control statement returns 
control back into the loop. In this way the range of the loop is 
extended to include all of the executable statements between the 
destination statement of the first transfer and the statement that 
returns control to the loop. 
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The following rules govern the use of a DO statement extended range: 

1. A transfer into the range of a DO statement is permitted 
only if the transfer is made from the extended range of that 
DO statement. 

2. The extended range of a DO statement cannot change the 
control variable or parameters of the DO statement. 


4.4 CONTINUE STATEMENT 


CONTINUE 


The CONTINUE statement simply transfers control to the next executable 
statement. It is used primarily as the terminal statement of a DO 
loop when that loop would otherwise end with a GO TO, arithmetic IF, 
or other prohibited control statement. 


The CONTINUE statement has the form: 


CONTINUE 


4.5 CALL STATEMENT 


CALL 


The CALL statement causes the execution of a SUBROUTINE subprogram; 
it can al s ° specify an argument list for use by the subroutine. (The 
definition and use of subroutines is treated in detail in Chapter 8.) 
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The CALL statement has the form: 

CALL s[([a][,[a]] ...)] 

s is the name of a SUBROUTINE subprogram, a user-written 
assembly language routine, or a DEC-supplied system 
subroutine, or a dummy argument associated with one of the 
above. 

a is an actual argument. Actual arguments are described fully 
in Section 8.1. 

The CALL statement associates the values in the argument list (if the 
list is present) with the dummy arguments in the subroutine and then 
transfers control to the first executable statement of the subroutine. 

The arguments in the CALL statement must agree in number, . order, and 
data type with the dummy arguments in the subroutine definition. They 
can be variables, arrays, array elements, constants, expressions, 
alphanumeric literals, or subprogram names (if those names have been 
specified in an EXTERNAL statement, as described in Section 7.6). An 
unsubscripted array name in the argument list refers to the entire 
array. 

Examples 

CALL CURVE (BASE,3.14159+X,Y,LIMIT,R(LT+2)) 

CALL PNTOUT (A,N,'ABCD') 

CALL EXIT 


RETURN 

4.6 RETURN STATEMENT 

The RETURN statement is used to return control from a subprogram unit 
to the calling program unit. 


The RETURN statement has the form: 

RETURN 

When a RETURN statement in a FUNCTION subprogram is executed, it 
returns control to the statement that contains the function reference 
(see Section 8.2.2). When a RETURN statement in a SUBROUTINE 
subprogram is executed, it returns control to the first executable 
statement following the CALL statement which initiated execution of 
the subprogram. 

A RETURN statement must not appear in a main program unit. 


Example 


SUBROUTINE CONVRT (N,ALPH,DATA,PRNT,K) 
DIMENSION DATA(N),PRNT(N) 

10) GO TO 100 
= N-(N/10)*N 


100 


IF (N .LT. 
DATA(K+2) 

N = N/10 
DATA(K+l) 
PRNT(K+2) 
PRNT(K+l) 
RETURN 
PRNT(K+2) 
RETURN 
END 


= N 

= ALPH(DATA(K+2)+1) 
= ALPH(DATA(K+l)+1) 

= ALPH(N+l) 



» 


4k 
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c 


4.7 PAUSE STATEMENT 


PAUSE 


The PAUSE statement temporarily suspends program execution to permit 
some action on the part of the user. 

The PAUSE statement has the form: 

PAUSE [disp] 

disp is a decimal digit string containing one to five digits, an 
alphanumeric literal, or an octal constant. 

The PAUSE statement prints the display (if one has been specified) at 
the user's terminal, suspends program execution, and waits for user 
response. When the user enters the appropriate control command, 
program execution resumes with the first executable statement 
following the PAUSE. 

Examples 


o 


PAUSE "13731 


PAUSE •MOUNT TAPE REEL #3' 


STOP 


4.8 STOP STATEMENT 


The STOP statement is used to terminate program execution. 

The STOP statement has the form: 

STOP [disp] 

disp is a decimal digit string containing one to five digits, an 
alphanumeric literal, or an octal constant. 

The STOP statement prints the display (if one has been specified) at 
the user's terminal, terminates program execution, and returns control 
to the operating system. 

Examples 

STOP 98 
STOP "7777 
99999 STOP 




STOP 'END OF RUN' 
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END 

4.9 END STATEMENT 

The END statement marks the end of a program unit. The END 
must be the last source line of every program unit. 

The END statement has the form: 

END 


statement 


In a main program, if control reaches the END statement, execution of 
che program is terminated; in a subprogram, a RETURN statement is 
implicitly executed. 







CHAPTER 5 
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INPUT/OUTPUT STATEMENTS 


5.1 OVERVIEW 


Input of data by a FORTRAN program is performed by READ 
statements. Output is performed by WRITE, TYPE, 
statements. Some forms of these statements are used in 
with format specifications which control translation and 
the data between internal representation and character 
form. 


and ACCEPT 
and PRINT 
conjunction 
editing of 
(readable) 


Each READ or WRITE statement contains a reference to the logical unit 
to or from which data transfer is to take place. A logical unit can 
be connected to a device or file. The TYPE and ACCEPT statements have 
no such reference, as they cause data transfer between the processor 
and an implicit logical unit that is normally connected to the user's 
terminal. Similarly, the PRINT statement outputs data to an implicit 
logical unit that is normally connected to the line printer. 

READ and WRITE statements fall into the following categories: 

1. Unformatted Sequential I/O 

Unformatted sequential READ and WRITE statements transmit 
binary data without translation. 

2. Formatted Sequential I/O 

Formatted sequential READ and WRITE statements transmit 
character data using format specifications to control the 
translation of data to characters on output, and to internal 
form on input. 

3. Unformatted Direct Access I/O 

Unformatted direct access READ and WRITE statements transmit 
binary data without translation to and from direct access 
files. 





FORTRAN IV-PLUS provides two additional categories of READ and WRITE 
statements: 

4. Formatted Direct Access I/O 

Formatted direct access READ and WRITE statements transmit 
character data to and from direct access files using format 
specifications to control the translation of data to 
characters on output and to internal form on input. 
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Any type of READ or WRITE statement can transfer control to another 
statement if an error condition or end-of-file condition is detected. 

The auxiliary I/O statements, REWIND, FIND, and BACKSPACE do not 
perform data transfer, but do file positioning functions. The ENDFILE 
statement writes a special form of record that will cause an 
end-of-file condition (and END= transfer) when read by an input 
statement. The DEFINE FILE statement declares a logical unit to be 
connected to a direct access file and specifies the character istics of 
the file. Finally, there are the ENCODE and DECODE statements, which 
perform data transfer and translation within memory. 



5.1.1 Input/Output Devices and Logical Unit Numbers 

PDP-11 FORTRAN uses the I/O services of the operating system and thus 
supports all peripheral devices that are supported by the operating 
system. I/O statements refer to I/O devices by means of logical unit 
numbers. A logical unit number is an integer constant or variable 
with a positive value. 

Some forms of I/O statements do not contain a logical unit number. 
These statements use an implicit logical unit number that is system 
specific. Consult the appropriate FORTRAN User's Guide for details. 


In FORTRAN IV-PLUS, a logical unit number can be an expression, which 
is converted, if necessary, to integer type prior to use. 


5.1.2 Format Specifiers 

Format specifiers are used in formatted I/O statements. A format 
specifier is either the statement label of a FORMAT statement or the 
name of an array containing Hollerith data interpretable as a format. 
Chapter 6 discusses FORMAT statements. 
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5.1.3 Input/Output Records 

Input/Output statements transmit all data in terms of records. The 
amount of information that can be contained in one record, and the way 
in which records are separated, depend on the medium involved. 

For unformatted I/O, the amount of data to be transmitted is specified 
by the I/O statement. The amount of information to be transmitted by 
a formatted I/O statement is determined jointly by the I/O statement 
and specifications in the associated format specification. 

The beginning of execution of an input or output statement initiates 
the transmission of a new record. If an input statement requires only 
part of a record, the excess portion of the record is lost. In the 
case of formatted sequential input or output, one or more additional 
records can be transmitted by a single I/O statement. 


5.2 INPUT/OUTPUT LISTS 

An I/O list specifies the data items to be manipulated by the 

statement containing the list. The I/O list of an input or output 

statement contains the names of variables, arrays, and array elements 
whose values are to be transmitted. In addition, the I/O list of an 
output statement can contain constants and expressions. 

An I/O list has the form: 

s[,s] . .. 

where each s is a simple list or an implied DO list. The I/O 

statement assigns input values to, or outputs values from, the list 

elements in the order in which they appear, from left to right. 


5.2.1 Simple Lists 

A simple I/O list consists of a single variable, array, array element, 
constant, or expression. 

When an unsubscripted array name appears in an I/O list, a READ or 
ACCEPT statement inputs enough data to fill every element of the 
array; a WRITE, TYPE, or PRINT statement outputs all of the values 
contained in the array. Data transmission begins with the initial 
element of the array and proceeds in the order of subscript 
progression, with the leftmost subscript varying most rapidly. For 
example, if the unsubscripted name of a 2-dimensional array defined 
as: 

ARRAY(3,3) 
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appears in a READ statement, that statement assigns values from the 
input record (s) to ARRAY(1,1) , ARRAY(2,1) , ARRAY(3,1) , ARRAY (1,2) , 
and so on, through ARRAY (3,3). 

In a READ or ACCEPT statement, variables in the I/O list may be used 
in array subscripts later in the list. If, for example, the 
statement: 

READ (1,1250) J,K,ARRAY(J,K) 

1250 FORMAT (II,X,II,X,F6.2) 

was executed and the input record contained the values: 

1,3,721.73 

the value 721.73 is assigned to ARRAY(1,3). The first input value is 
assigned to J and the second to K, thereby establishing the actual 
subscript values for ARRAY(J,K). Variables that are to be used as 
subscripts in this way must appear to the left of their use in the 
array subscript. 

Any valid expression can be included in an output statement I/O list. 
However, the expression must not cause further I/O operations to be 
attempted. A reference in an output statement I/O list expression to 
a function subprogram that itself performs input/output is an example 
of this prohibited case. 

An expression must not be included in an input statement I/O list 
except as a subscript expression in an array reference. 


5.2.2 Implied DO Lists 

Implied DO lists are used to specify iteration within an I/O list, to 
transmit only part of an array, or to transmit array elements in a 
sequence other than the order of subscript progression. This type of 
list element functions as though it were a part of an I/O statement 
that resides in a DO loop, and that uses the control variable of the 
imaginary DO statement to specify which value or values are to be 
transmitted during each iteration of the loop. 

An implied DO list has the form: 

(list,i=el,e2[,e3]) 

list is an I/O list. 

i is a control variable definition. 

el,e2,e3 are parameter definitions. 

i, el, e2 and e3 have the same form as that used in the DO statement. 
The rules for the initial, terminal, and increment parameters, and for 
the control variable of an implied DO list are the same as those for 
the DO statement (see Section 4.3). An expression may be used for the 
initial, terminal, or increment parameter of an implied DO list, as 
long as it conforms to the rules in Section 4.3. The list may contain 
references to the control variable as long as the value of the control 
variable is not altered. The range of the implied DO is the list. 
For example: 
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WRITE (3,200) (A,B,C, 1=1,3) 

WRITE (6,15) L,M,(I,(J,P(I),Q(I,J),J=1,L),I=1,M) 

READ (1,75) (((ARRAY(M,N,I), 1=2,8), N=2,8), M=2,8) 

The first control variable definition is equivalent to the innermost 
DO of a set of nested loops, and therefore varies most rapidly. For 
example, the statement: 

WRITE (5,150) ((FORM(K,L), L=l,10), K=l,10,2) 

150 FORMAT (F10.2) 

is similar to: 

DO 50 K=1,10,2 

DO 50 L=1,10 

WRITE (5,150) FORM(K,L) 

150 FORMAT (F10.2) 

50 CONTINUE 

Since the inner DO loop is executed ten times for each iteration of 
the outer loop, the second subscript, L, advances from one through ten 
for each increment of the first subscript. This is the reverse of the 
order of subscript progression. Also, since K is incremented by two, 
only the odd-numbered columns of the array will be output. 

The entire list of the implied DO is transmitted before the 
incrementation of the control variable. For example: 

READ (3,999) (P(I), (Q(I,J), J=l,10), 1=1,5) 

assigns input values to the elements of arrays P and Q in the order: 


P(l), Q(1,1), Q(1,2), ... 

, Q(l,10), 

P(2), Q(2,l) , Q(2,2) , ... 

• • . 

, Q(2,10) , 

P(5), Q(5 * 1), Q(5*2) , ... 

, Q(5,10) 


When processing multidimensional arrays, it is possible to use a 
combination of fixed subscripts and subscripts that vary according to 
an implied DO. For example: 

READ (3,5555) (BOX(l,J), J=l,10) 

assigns input values to BOX(l,l) through BOX(1,10), then terminates 
without affecting any other element of the array. 

It is also possible to output the value of the control variable 
directly, as in the statement: 

WRITE (6,1111) (I, 1=1,20) 

which simply prints the integers one through twenty. 
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5.3 UNFORMATTED SEQUENTIAL INPUT/OUTPUT 

Unformatted input and output is the transfer of data in internal 
(binary) format without conversion or editing. Unformatted I/O is 
generally used when data output by a program is to be subsequently 
input by the same program (or a similar program). Unformatted I/O 
saves execution time by eliminating the data conversion process, 
preserves greater precision in the external data, and usually 
conserves file storage space. 

READ 

5.3.1 Unformatted Sequential READ Statement 

The unformatted sequential READ statement inputs one unformatted 
record from the specified logical unit and assigns the fields of the 
record without translation to the I/O list elements in the order in 
which they appear, from left to right. The amount of data each 
element receives is determined by its data type. 

The unformatted sequential READ statement has the form: 

READ (u [ ,END=s] [ ,ERR=s] ) [list] 

u is a logical unit number. 

s is an executable statement label. 

list is an I/O list. 

An unformatted sequential READ statement reads exactly one record. If 
the I/O list does not use all of the values in the record, the 
remainder of the record is discarded. If the contents of the record 
are exhausted before the I/O list is satisfied, an error condition 
results. 

If an unformatted sequential READ statement contains no I/O list, it 
skips over one full record, positioning the file to read the following 
record on the next execution of a READ statement. 

The unformatted sequential READ statement must be used only to read 
records that were created by unformatted sequential WRITE statements. 

Examples 

READ (1) FIELDl, FIELD2 (Read one record from logical 

unit 1; assign values to 
variables FIELDl and FIELD2.) 

READ (8) (Advance logical unit 8 one 

record.) 

WRITE 

5.3.2 Unformatted Sequential WRITE Statement 

The unformatted sequential WRITE statement outputs the values of the 
elements in the I/O list to the specified logical unit without 
translation, as one unformatted record. 





* 



* 
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The unformatted sequential WRITE statement has the form: 

WRITE (u[,ERR=s]) [list] 
u is a logical unit number, 
s is an executable statement label, 

list is an I/O list. 

If an unformatted WRITE statement contains no I/O list, one null 
record is output to the specified unit. 

Examples 


WRITE (1) (LIST(K),K=1,5) (Output the contents of elements 

1 through 5 of array LIST to 
logical unit 1.) 

WRITE (4) (Write a null record on logical 

unit 4.) 


5.4 FORMATTED SEQUENTIAL INPUT/OUTPUT 

Formatted input and output statements are used in conjunction with 
FORMAT statements (or format specifications stored in arrays) to 
translate and edit data on output for ease of interpretation, and, on 
input, to convert data from external format to internal format. 


READ 

5.4.1 Formatted Sequential READ Statement 

The formatted sequential READ statement transfers data from the 
specified logical unit. The characters transmitted are converted to 
internal format as specified by the format specification. The 
resulting values are assigned to the elements of the I/O list. 

The formatted sequential READ statement has the forms: 

READ f [ ,list] 

READ (u,f [,END=s] [,ERR=s]) [list] 
u is a logical unit number, 

f is a format specifier, 

s is an executable statement label, 

list is an I/O list. 

If the FORMAT statement associated with a formatted input statement 
contains a Hollerith constant or alphanumeric literal, input data will 
be read and stored directly into the format specification. For 
example, the statements 

READ (5,100) 

100 FORMAT (5HADATA) 
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cause five characters to be read and stored in the Hollerith format 
descriptor. If the characters were HELLO, statement 100 would become: 

100 FORMAT (5HHELLO) 

A statement of the form: 

READ 200, ALPHA,BETA,GAMMA 

causes data to be read from a system dependent logical unit. 

If the number of elements in the I/O list is less than the number of 
fields in the input record, the excess portion of the record is 
discarded. If the number of list elements exceeds the number of input 
fields, an error condition results unless the format specifications 
state that one or more additional records are to be read (see Sections 
6.4 and 6.8). 

If no I/O list is present, data transfer is between the record and the 
format specification. 

Examples 


READ (1,300) ARRAY 
300 FORMAT (20F8.2) 


(Read a record from 
logical unit 1, assign 
fields to ARRAY.) 


READ (5,50) 

50 FORMAT (2 5HAPAGEAHEADINGAGOESAHEREAA) 


(Read 25 characters 
from logical unit 5, 
place them 
in the FORMAT 
statement.) 


WRITE 

5.4.2 Formatted Sequential WRITE Statement 

The formatted sequential WRITE statement transfers data to the 
specified logical unit. The I/O list specifies a sequence of values 
which are converted to characters and positioned as specified by the 
format specification. 


The formatted sequential WRITE statement has the form: 


WRITE (u,f[,ERR=s])[list] 
u is a logical unit number, 

f is a format specifier, 

s is an executable statement label, 

list is an I/O list. 

If no I/O list is present, data transfer is entirely between the 
record and the format specification. 

The data transmitted by a formatted sequential WRITE statement 
normally constitutes one formatted record. The format specification 
can, however, specify that additional records are to be written during 
the execution of that same WRITE statement. 
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Numeric data output under format control is rounded during the 
conversion to external format. (If such data is subsequently input 
for additional calculations, loss of precision may result. In this 
case, unformatted output is preferable to formatted output.) 


The records transmitted by a formatted WRITE statement must not exceed 
the length that can be accepted by the specified device. For example, 
a line printer typically cannot print a record that is longer than 132 
characters. 

Examples 


WRITE (6, 650) 

650 FORMAT ( *AHELLO,ATHERE 1 ) 


WRITE (1,95) AYE,BEE,CEE 
95 FORMAT (F8.5,F8.5,F8.5) 

WRITE (1,950) AYE,BEE,CEE 
950 FORMAT (F8.5) 


In the last example 
parenthesis of the 
list have been output, 
terminated and a 
records are written. 


(Output the contents of the 
FORMAT statement to logical unit 
6 .) 

(Write one record of three 

fields to logical unit 1.) 

(Write three separate records 

of one field each to logical 

unit 1.) 


, format control arrives at the rightmost 
FORMAT statement before all elements of the I/O 
Each time this occurs, the current record is 
new record is initiated. Thus, three separate 
(See Section 6.7.) 


5.4.3 Formatted ACCEPT Statement 


ACCEPT 


The function of the ACCEPT statement is identical to that of the 
formatted READ statement, except that input is read from a logical 
unit normally connected to the terminal keyboard. 


for the format reference and I/O list of an ACCEPT statement 
same as those for the formatted READ statement (Section 


The ACCEPT statement has the form: 

ACCEPT f [ ,list] 

f is a format specifier. 

list is an I/O list. 

The rules 
are the 
5.4.1) . 

Examples 

ACCEPT 100, NUMBER 
100 FORMAT (14) 

ACCEPT 200 

200 FORMAT ( 1 PUTADATAAHERE 1 ) 


(Accept one Integer value from 
terminal keyboard.) 

(Read 13 characters from 
keyboard, place them in the FORMAT 
statement.) 
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TYPE 

5.4.4 Formatted TYPE Statement 

The TYPE statement functions identically to the formatted WRITE 
statement except that output is directed to a logical unit normally 
connected to the terminal printer. 

The TYPE statement has the form: 

TYPE f[,list] 

f is a format specifier, 
list is an I/O list. 

The rules for the format reference and I/O list of a TYPE statement 
are the same as those for the formatted WRITE statement (Section 
5.4.2). 

Examples 

TYPE FMT, BOLD (Display the contents of 

BOLD on terminal in the 
format specified by contents 
of array FMT. See Section 
5.4) 

TYPE 400 (Type message from FORMAT 

400 FORMAT ('AMOUNTANEWATAPEAREEL') statement on terminal.) 

PRINT 

5.4.5 Formatted PRINT Statement 

The function of the PRINT statement is the same as that of the 
formatted WRITE statement and TYPE statement, except that output is 
directed to a logical unit normally connected to a line printer. 

The PRINT statement has the form: 

PRINT f[,list] 

f is a format specifier. 

list is an I/O list. 

The format reference and I/O list in a PRINT statement follow the same 
rules as specified for the formatted sequential WRITE statement 
(Section 5.4.2). 

Examples 

PRINT 999, NPAGE (Print the page number in 

999 FORMAT (1H1,100X,'PAGEAA',13) upper right-hand corner of new 

page.) 

PRINT 222 (Print the contents of FORMAT 

222 FORMAT ( 1 AENDAOFALISTING') statement on line printer.) 
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5.5 


UNFORMATTED DIRECT ACCESS INPUT/OUTPUT 


performed irectAccess 6 I/O with ,‘fn ™ ITE ^<5 to 

DEFINE FILE or OPFN ci- a / 0 a flla on a direct access device. The 

records, and thJ sizfo^fK 13 U | e ' 3 • t0 establish the number of 
I/O is to be performed. EacJ direct'ac^ess^EAD^of^RI^^state 0 " 8 ? 

s n b c ; i :c 8 c::se 1 s te 9 Se e s res ; ion h that specifies the 

greater°than 6 the ^ber^^ds ^L^he^e. ™ 



5 * 5,1 Unforma tted Direct Access READ Statement 
The unformatted direct access READ statement positions the input fii P 

The unformatted direct access READ statement has the form: 


READ 


READ (u’r[,ERR=s]) [list] 

is a logical unit number. 

is the record number. 

is an executable statement label. 


list is an I/O list. 


l I ist her the re exoP^ field H- in th t inpUt record th an elements 
11 st, che excess portion of the record is discarded 

insufficient data in the record to satisfy the requirement' 
list, an error condition results. requirements 


in the I/O 
If there is 
of the I/O 


The unit number in 
refer to a unit 
processing. 


un £ ormatted direct access READ statemen 
that has been previously defined for direct 


t must 
access 


Examples 


READ (1'10) LIST(l),LIST(8) (Read record 10 of a file on 

logical unit 1, assign two 
Integer values to specified 
elements of array LIST.) 

READ (4*58) (RHO(N),N=1,5) (Read record 58 of a file on 

logical unit 4, assign five 
Real values to array RHO.) 
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WRITE 

5.5.2 Unformatted Direct Access WRITE Statement 


The unformatted direct access WRITE statement 
the elements in the I/O list to a particular 
file. The data is written in internal format 


transmits the values of 
record of a direct access 
without translation. 


The unformatted direct access WRITE statement has the form 


WRITE (u 1 r [ ,ERR=s]) [list] 

is a logical unit number. 

is the record number. 

is an executable statement label. 


list is an I/O list. 


If the amount of data to be 
error condition results, 
fill the record with data, 
record are zero-filled. 


transmitted exceeds the record size, an 
If the WRITE statement does not completely 
the contents of the unused portion of the 


Examples 

WRITE (2’35) (NUM(K),K«1,10) (Output ten Integer values to 

record 35 or tne rue 
connected to logical unit 2.) 

WRITE (3' J) ARRAY (Output the entire contents 

W 1 1 of ARRAY to the file 

connected to logical unit 3 
into the record indicated by 
the value of J.) 
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The formatted direct access READ statement has the form: 
READ (u'r,f[,ERR=sJ)[list] 
is a logical unit number, 
is the record number, 
is a format specifier, 
is an executable statement label. 


u 

r 

f 

s 


list is an I/O list. 

If the I/O list and format specify more characters than a record 
contains, or specify additional records, an error condition results. 


5,6,2 Formatted Direct Access WRITE Statement 

r™a rm ? tte d direct access WRITE statement outputs the specified 
• ° rd £° , ^ he dir ®^ access file that is currently connected to the 
™ e 1 X f C s P® c * fies a sequence of values which are converted to 
characters and positioned as specified by the format specification. 

The formatted direct access WRITE statement has the form: 

WRITE (u'r,f[,ERR=s])[list] 
u is a logical unit number, 

r is the record number, 

f is a format specifier, 

s is an executable statement label, 

list is an I/O list. 

If the values specified by the list and format do not fill the record 
space characters are appended to fill the record. 

1/0 list .^ nd ?° rmat specify more characters than can fit into a 
record, or specify additional records, an error condition results. 


5.7 LIST-DIRECTED INPUT/OUTPUT 

List-directed input and output statements provide a method for 

f a ^L Simple sec ? uential formatted input or output without the need 
for FORMAT statements. On input, values are read from the unit 
converted to internal format, and assigned to the elements of the I/O 
list. On output, values in the I/O list are converted to characters 
Thf a f * xed forn,at according to the data type of the value. 

The I/O list must be present. Records written by list-directed output 

provided C thev re dt> SUi *" able 5°" by 1 is t-directed input statements 

constants H d COntain al P ha numeric literals or Hollerith 


WRITE 
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Both formatted and list-directed I/O statements can refer to the same 
“u. AU operations permitted for formatted segue. 

:,"jr r fr.t^s.;^- a iusr t s ii£./5.^?s%i5rxi.f p. P T s 

files are read that contain both formatted and itst-directed recor s, 
the user program must assure that each record is read properly. 

READ 

5.7.1 List-Directed READ Statement 

The list-directed READ statement transfers data from the specified 
unit translates from external to internal format, and assigns tne 
inpi; values to 6 the elements of the I/O list in the order in which 
they appear, from left to right* 

The list- 

-directed READ statement has the form: 


READ * ,list 


READ (u,* [ ,END=s] [ ,ERR=s]) list 

u 

is a logical unit number. 

* 

indicates list-directed formatting. 

s 

is an executable statement label. 

list 

is an I/O list. 

The external record contains a sequence of values and value 

separators. 

A value 

can be: 

1. 

A constant 


Each input constant has the form of the corresponding FORTRAN 
constant. A complex constant has the form of a pair of real 

or integer constants separated by a comma and enclosed in 
parentheses. Spaces can occur between the open parenthesis 

and the first constant, around the separating comma and 
between the second constant and the close parenthesis, 
logical constant is either T for .TRUE. or F for .FALSE. 

Hollerith, octal, and alphanumeric constants are not 

permitted. 

2. 

A null value 


A null value is specified by two consecutive commas with no 
intervening constant. Spaces can be embedded between the 
commas. A null value specifies that the corresponding list 
element is to remain unchanged. A null value cannot be used 
for either part of a complex constant, but can represent an 
entire complex constant. 

3. 

A repetition of constants in the form r*c 


The form r*c- indicates r occurrences of c where r is a 
non-zero, unsigned integer constant and c is a constant. 
Spaces are not permitted except within the constant c as 
specified above. 

: : : : "" ii ' ' ' ' '' 5 ■ 
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4. A repetition of null values in the form r* 


The form r* indicates r occurrences of null where r is an 
unsigned integer constant. 


A value separator can be: 

1. one or more spaces or tabs 


2 . 

3. 


a comma with or without surrounding spaces or tabs 

a slash with or without surrounding spaces or tabs 

A slash separator causes termination of processing on the 
input statement and record; all remaining I/O list elements 
are unchanged. 


The end of a record is equivalent to a space character, 
beginning of a record are ignored. 


Spaces at the 


D?erffe?nn of acce P table input constants are: integer, real, double 

corner/ ogica i an ? complex. The data type of the value and the 
conversion from external to internal form is determined by the form of 
the constant. If the data types of the list element and the 
corresponding constant do not match, conversion is performed according 
co the rules for arithmetic assignment described in Table 3-1. 

^M<=ef PU L St T/^ m ? rit Wili read one or more records as required to 
Afhhff Y K the T/ ° 1 1 1SC u Tf 311 of . the values in a record are not used, 
eicner because a slash separator is encountered or the I/O list is 
exhausted, the remaining values in the record are lost. 

Example 

If the program unit consists of 

DOUBLE PRECISION T 
COMPLEX C,D 
LOGICAL L,M 

READ (1,*) I,R,C,D,L,M,J,K,S,T,A,B 


and the record read contains: 

4A6.3A(3.4,4.2) ,A(3,A2 )A,AT,F,,3*14.6A/ 

The following values are assigned to the I/O list elements: 


1 = 4 
R = 6.3 
C = (3.4,4.2) 

D = (3.0,2.0) 

L = .TRUE. 

M = .FALSE. 

R = 14 
S = 14.6 
T = 14.6 DO 

A, B and J will be unchanged. 
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WRITE 


5.7.2 List-Directed WRITE Statement 

The list-directed WRITE statement transmits the elements in the I/O 
list to the specified unit, translating and editing each value 
according to the data type of the value. 

The list-directed WRITE statement has the form: 

WRITE (u,*[,ERR=s]) list 

u is a logical unit number. 

* indicates list-directed formatting. 

s is an executable statement label. 

list is an I/O list. 

The forms of the output values produced are the same as that required 
for input as described for the list-directed READ statement (Section 
5.7.1). In addition, alphanumeric literals and Hollerith constants 
can be output; these constants are not delimited by apostrophes. The 
values produced are separated by one space. Each value is transmitted 
in a default format as illustrated in Table 5-1. 


Table 5-1 

List-Directed Output Formats 


Data Type 

Output format 

Logical*l 

Logieal*2 

Logical*4 

Integer*2 

Integer*4 

Real*4 

Real*8 

Complex*8 

Alphanumeric literals 

15 

L2 

L2 

17 

112 

1PG15.7 

1PG25.16 

IX,'(',1PG14.7, 1PG14.7,’)' 

lX,nAl (n=length of the 

literal string) 


Octal values, null values, slash (/) separators, and repeated forms 
are not produced. Each output record begins with a space for carriage 
control. Each output statement writes one or more complete records. 
Each value is contained within a single record, except for 
alphanumeric literals which are longer than a record. 

Example 

The program unit 

DIMENSION A(5) 

DATA A/5*3.4/ 

WRITE (1,*) 'ARRAYAVALUESAFOLLOW' 

WRITE (1,*) 


A,5 
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writes the following records: 


1 


ARRAYAVALUES AFOLLOW 

a *'fnnnnn AAAAAAA3 - 4 0° 000 AAAAAAA3. 4 °0000AAAAAAA3.400000 
AAAJ. 400000 AAAAAAAAAA5 


5 - 7 - 3 List-Directed ACCEPT Statement 

1 st-directed ACCEPT statement functions identically to the 
list-directed READ statement, except that input is read from a loaJS? 
unit normally connected to the terminal keyboard. 

The list-directed ACCEPT statement has the form: 

ACCEPT *, list 

* indicates list-directed formatting, 

list is an I/O list. 

The rules for the form of the external records read bv the 
list-directed ACCEPT statement are the same as those for the 
lisc-directed READ statement (Section 5.7.1). 

Examples 

ACCEPT *,I,J,K,A(I,J,K) 

ACCEPT *,I,(0{J) ,J=1,I) 


ACCEPT 


5,7-4 List-Directed TYPE Statement 

The list-directed TYPE statement functions identically to the 
list-directed WRITE statement, except that output is directed to a 
logical unit normally connected to the terminal printer. 

The list-directed TYPE statement has the form: 

TYPE *, list 

* indicates list-directed formatting, 

list is an I/O list. 

the f ^L° f J h \£ UtpUt / alue f ° f a list-directed TYPE statement are 
5^7. 2 ). th ° Se fOC Che iist-directed WRITE statement (Section 


TYPE 


Examples 


TYPE * , 'THEAANSWERAIS ' , I 
TYPE *,(I,XX{I),1=1,10) 
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5. 8 TRANSFER OF CONTROL ON END-OF-FILE OR ERROR CONDITIONS 


Any type of READ or WRITE statement can contain a 
control is to be transferred to another statement 
encounters an error condition or the end of 
specifications have the form: 


specification that 
if the I/O statement 
the file. These 


END=S 


and 


ERR=s 


is the label of an executable statement to which control is 
to be transferred. 


A READ or WRITE statement can contain either or both of the 
specifications, in either order. Any such specification muse 
the unit number, record number, and/or format specification. 


above 

follow 


If an end-of-file condition is encountered during an I/O operation, 
the READ statement transfers control to the statement named in the 
END=s specification. If no such specification is present, an error 
condition results. An end-of-file condition occurs when no more 
records exist in a sequential file, or when an end of file reco 
produced by the ENDFILE statement is read. 


If a READ or WRITE statement encounters an error condition during an 
I/O operation, it transfers control to the statement whose label 
appears in the ERR=s specification. If no ERR=s specification is 
present, the I/O error causes program execution to terminate. 


The statement label in the END=s or ERR=s specification must refer to 
an executable statement that exists within the same program unit as 
the I/O statement. 
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Examples of I/O statements containing END=s and 
follow: 


ERR=s specifications 


READ (8,END=550) (MATRIX(K) ,K=1,100) 


(Pass control to statement 
550 when end-of-file is 
encountered on logical unit 
8 .) 


WRITE (5,50,ERR=390) 

READ (1'INDEX,ERR=150) ARRAY 


(Pass 

control 

to 

statement 

390 on 

error.) 



(Pass 

control 

to 

statement 

150 on 

error.) 




NOTE 

An end-of-file condition can not occur 
during direct access READ or WRITE 
statements. Attempting to READ or WRITE 
a record using a record number greater 
than the maximum specified for the unit 
is an error condition. 


The FORTRAN User's Guide describes system subroutines that can control 
processing of error conditions and obtain information from the I/O 
system concerning the type of error condition that has occurred. 


5-9 AUXILIARY INPUT/OUTPUT STATEMENTS 

The statements in this category are used to perform file management 
functions. 


5.9.1 REWIND Statement 


REWIND 


The REWIND statement causes a currently open sequential file to be 
repositioned to the beginning of the file. 

The REWIND statement has the form: 

REWIND u 


u is a logical unit number. 


The unit number in the REWIND statement must refer to a 
directory-structured device (e.g., disk). A file must be open on that 
device. 

Example 


REWIND 3 


(Reposition logical unit 3 to beginning of 
currently open file.) 
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BACKSPACE 

5.9.2 BACKSPACE Statement 


The BACKSPACE statement repositions a currently open sequential file 
backward one record and repositions to the beginning of that record. 
On the execution of the next I/O statement for that unit, that recor 
is available for processing. 


The BACKSPACE statement has the form: 


BACKSPACE u 

u is a logical unit number. 

The unit number must refer to a directory-structured device (e.g., 
disk). A file must be open on that device. 

Example 

BACKSPACE 4 (Reposition open file on logical unit 4 to 
beginning of the previous record.) 


ENDFILE 

5.9.3 ENDFILE Statement 

The ENDFILE statement writes an end-file record to the specified 
sequential unit. 

The ENDFILE statement has the form: 

ENDFILE u 

u is a logical unit number. 

Example 

ENDFILE 2 (Output an end-file record to logical unit 2.) 


DEFINE FILE 

5.9.4 DEFINE FILE Statement 

The DEFINE FILE statement establishes the size and structure of a file 

upon which direct access I/O is to be performed. 

The DEFINE FILE statement has the form: 

DEFINE FILE u (m,n,U,v) [,u(m,n,U,v)]... 

u is an integer constant or integer variable that specifies the 
logical unit number. 

m is an integer constant or integer variable that specifies the 
number of records in the file. 

n is an integer constant or integer variable that specifies the 
length, in words, of each record. 

U specifies that the file is unformatted (binary). The letter 
U is the only acceptable entry in this position. 
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v is an integer variable, called the associated variable of the 
file. At the conclusion of each direct access I/O operation 
the record number of the next higher numbered record in the 
file is assigned to v. 

The DEFINE FILE statement specifies that a file containing m 
fixed-length records of n words each exists, or is to exist, on 
logical unit u. The records in the file are sequentially numbered 
from 1 through m. 

The DEFINE FILE statement must be executed before the first 
direct access I/O statement that refers to the specified file. 

The DEFINE FILE statement also establishes the integer variable v as 
the associated variable of the file. At the end of each direct access 
I/O operation, the FORTRAN I/O system places in v the record number of 
the record immediately following the one just read or written. Since 
the associated variable always points to the next sequential record in 
the file (unless it is redefined by an assignment, input or FIND 
statement), direct access I/O statements can be used to perform 
sequential processing of the file, by using the associated variable of 
the file as the record number specifier. 

If the file is to be processed by more than one program unit, or in an 
overlay environment, the associated variable should be placed in a 
resident named COMMON block. 


In FORTRAN IV-PLUS the parameter m can be an INTEGER*4 quantity. 


Example 

DEFINE FILE 3 (1000,48,U,NREC) 

This statement specifies that logical unit 3 is to be connected to a 
file of 1000 fixed-length records, each record of which is 48 words 
long. The records are numbered sequentially from 1 through 1000, and 
are unformatted. After each direct access I/O operation on this file, 
the integer variable NREC will contain the record number of the record 
immediately following the one just processed. 


FIND 

5.9.5 FIND Statement 

The FIND statement positions a direct access file on a specified unit 
to a particular record and sets the associated variable of the file to 
that record number. No data transfer takes place. 

The FIND statement has the form: 

FIND (u'r) 

u is a logical unit number, 

r is the record number. 
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The unit number in the statement must refer to a unit that must have 
been previously defined for direct access processing. 

The record number must not be less than 1 nor greater than the number 
of records defined for the file. 

Examples 

FIND (1*1) (Position logical unit 1, and its associated 

variable, to the first record of the file.) 

FIND (4 *INDX) (Position the file and associated variable 
to record identified by contents of INDX.) 


OPEN 


OP 


m 




5.9.6 OPEN Statement 

An OPEN statement can be used to connect an existing file to a logical 
unit, or to create a new file and connect it to a logical unit. In 
addition, the statement can contain specifications for file attributes 
chat will direct the creation and/or subsequent processing. 

The OPEN statement has the form: 

OPEN (p[,p]..•) 

p is a specification in one of the following forms: 
key key is a keyword. 

e is a numeric expression, 
s is an executable statement label. 


key=e 

key=s 

key=lit 


lit is an alphanumeric literal of special 
significance. 

key=v v is an integer variable name. 

key=n n is an array name, variable name, array element 

name, or alphanumeric literal. 

The keywords available for attribute specifications are summarized in 
Table 5-2, and described in detail in the following sections. 

Attribute specifications can appear in any order. In most cases, 
attribute specifications are optional and if not present, default 
specifications will be provided. 

In the discussions that follow, a numeric expression can be any 
integer, real or double precision expression. The value of the 
expression will be converted to integer type prior to use in the OPEN 
statement. 
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Table 5-2 
Keywords in the OPEN Statement 


FUNCTION 

logical unit number 
file specification 

file type 


VALUES 


ACCESS 

access method 

READONLY 

read-only file access 

FORM ~ ~ 

file format 

RECORDSIZE 

direct access record length 

ERR 

error condition transfer label 

BUFFERCOUNT 

number of buffers ~ ~ 

initialsize" 

file allocation size 

extendsize 

file extension increment 

NOSPANBLOCKS 

unspanned records 

SHARED 

shared file access 

DISPOSE 

file disposition 


'OLD' 

'NEW' 

'SCRATCH' 

'UNKNOWN' 

'SEQUENTIAL' 
'DIRECT' 
'APPEND' 


'FORMATTED 1 
'UNFORMATTED 


ASSOCIATEVARIABLE 
CARRIAGECONTROL 

MAXREC 
BLOCKS IZE 


associated variable name 
carriage control type 

number of direct access records 
physical block size 


'SAVE' 
'PRINT' 
'DELETE' 


'FORTRAN 1 
'LIST' 

'NONE' 


s 

V 


is a numeric expression, 
is a variable name, arrav 

alphanumeric literal. ' ' arra V element name, or 

is an executable statement label, 
is an integer variable name. 
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5 . 9 . 6 .I UNIT Keyword 
The form 

■ : 

UNIT = U 

specmes the logical unit ^hicH^tiUis “^connec tea, ^ ij; • 

TSer“musc X no e t S be "file connected to the logical unit at the time the 
OPEN statement is executed. 


5.9.6.2 NAME Keyword 
The form 

NAME = fin 

specifies the name of 1 the file to be “‘aJra/eLment 

be an alphanumeric literal, var f ^ le acceptable to the 

name. The name can cojventiins are described in the 

operating system. Default me n<ime 

fortran IV-PLUS User’s Guide. 


If the file name is stored in a variable or array, the 
terminated by an ASCII null character (zero byte). 


5.9.6.3 TYPE Keyword 


name must be 


The form 


TYPE = typ 

'NEW’° £ )sCRSTCH' £ °or C 'ONKNOW>l'. ty if^OLD £l is specified, 
Ke-fi^ust a LdT e 

be created. If s< r** T CH fnr P use bv the executable program; 

connected to the specified unit CLOSE statement referring to 

the file is deleted at the execution of “ CLOSERtatem^ progranu Tf 

the same unit or a t . termmati wil i first try 1 OLD 1 and if the 

fufifnot^ounfu iill'then"try 'NEW', thereby creating a new file. 

The default is 'NEW'. 


5.9.6.4 ACCESS Keyword 
The form 

ACCESS = acc 


specifies whether the file i| direct accessor sequ,e ntial, , «<=_ 
a^L^oiess file. '•SEQUENTIAL' specifies a seq, 


is a 
DIRECT' 

literal ul . - z~; 7 ~ i cpahrmtiai^ sDecifies a seauential 

specifies a direct access file. SEQUENTIAL . a f ter the 

fflP 1 APPEND 1 implies a sequential file ana 

la«'record of the file. The default is 'SEQUENTIAL 
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5♦9.6.5 READONLY Keyword 
The form 

READONLY 




gpljjl 


that I fUe. that ^ 6Xisting file is t0 be read and prohibits writing to 


5.9.6.6 FORM Keyword 
The form 

FORM = ft 


specifies whether the file being opened is to be read and writtPn 
1 iteral l?Inform -SSr’" READ or WRITE statements; ft is a 
files, 'FORMATTED' is the 
’UNFORMATTED' is the default. 


'FORMATTED' or 'UNFORMATTED'. For sequential 
,c ^ default. For direct access files, 


5.9.6.7 RECORDSIZE Keyword 
The form 

RECORDSIZE = rl 

rr C ifa S nii!r^ ngth ° f 6aCh l0giCal reCOrd of a dire ^t access file; 

1 4 » “ r EFr 

evistS a 1 if number of storage units (double words). if the file 
xists and rl does not agree with the actual lenqth of the remrrS 
error condition exists. If this specifier is omitted for oW files 
the actual record length specified when the file was c?eatfdf: 

created* it^is . speci ^ iar must appear when a direct access file is 
eated, it is ignored for a sequential file. 


5.9.6.8 ERR Keyword 
The form 

ERR = s 

fabel i ! ieS The tr ERR- er ooM^ r ° r condi “°"; , s « an executable statement 
only to that odpS" f P f as s P ecified in the OPEN statement applies 
niy to that OPEN and not to subsequent I/O operations on the nnir 

If an error condition occurs, no file is opened or cJeateS. 
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5 . 9 .6.9 BUFPERCOUNT Keyword 
The form 

BUFFERCOUNT = be 

specifies the number of buffers to be associated with the unit 
multi-buffered I/O; be is a numeric expression. If not specified, 
zero, the system default (normally one) is assumed. 


5.9.6.10 INITIALSIZE Keyword 
The form 

INITIALSIZE = is 


specifies the number of blocks in the initial allocation of space for 
a new file on a disk unit; is is a numeric expression- This keyword 
can be used only for new files and only for allocation to a disk unit. 
If zero or not present then no initial allocation is made. 


5.9.6.11 EXTENDSIZE Keyword 
The form 

EXTENDSIZE = es 


specifies the number of blocks by 
additional file storage must be 
expression. If zero or not present, 
five) will be used. 


which to extend a file when 
allocated; es is a numeric 
the system default (normally 


■■ ■ / " ' X Xi X. X . XlX. X 

5.9.6.12 NOSPANBLQCKS Keyword 

The form 


NOSPANBLOCKS 


specifies that records are 
record exceeds the size 
results. 


not to cross disk block boundaries. If any 
of a physical block, an error condition 


5.9.6.13 SHARED Keyword 
The form 

SHARED 

specifies that the file is to be opened for shared access by more than 
one program executing simultaneously. 

(Consult the FORTRAN IV-PLUS User’s Guide for additional information 
on the implications of this specifier.) 
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5 ‘ 9 ' 6 ’ 14 . DISPOSE Keyword 
The form 


DISPOSE = dis 




determines the disposition n* 

■Delete". ^fdtf dis is a lUefai^rjL^f^m^sf 6 Unit when the 

retained after the unU^J 8 1 ' SAVE '' w hich causefthe %• f™’ ' or 
dele red when th#a • l . closed. 1 DEL ftp 1 n file to he 

Printed on the fin* ^ 1S closed - 'PRINT- cf„Jf US f! the file to be 
^ printed or dele ted and fc hen deleted.T L' e , f £* to be 

deleted. A scratch file cannot bJ saved 116 cann °t 

saved or printed. 


5.9.6.15 
The form 


MSOCIA TEVARIABLE 


ASSOCIATEVARIABLE = asv 
specifies the integer variahi 

direct amcsw -r y x 1 var iable asv, **- . u 

sequential record^ thl^f 1 ?"' cont ains'the record°nSih Si ° n e ° f each 
sequential fil^ ln the flle * This specifier 

5 ' 9 * 6 ' 16 ^^RIAGECONTROLje^ord 

The form 


carriagecontrol = cc 



unformatted fii U 

interpretation or' t h/ N ? NE '* '■ F0 *™AN ’*”„><. i?i„ ' F ° RTRAN '» 'for 

spacing between record *^ ir8 } cha racter; ^LIST-^ . "°™ al FORTRAN 
control. record s and -none- sj^Hfles no K^ S Sin ^ le 

no implied carriage 

5 ‘ 9 ' 6,17 MAXREC Kevwnra 
The form 

MAXREC = mr 

access 16 fi maximum number of records r-n k 

number of rtio^ l fJ " U " erIc in » direct 

S ..^records. This specifier is igowed“or f f.“ U ls . n0 

y «iea ror a sequential file. 
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5.9.6.18 BLOCKSIZ^jeyword 

it' : ' 

The form 

BLOCKSIZE = bks unit; bks is a 

specifies she physical block sice to bemuse effect for Jag-tic tape 

" ’Iff files. The default 

default for the device. 


5.9.6 


Examples 


.19 »t»p.« statement Ex amples 


,„,, TT o TY p E= < SCRATCH ' ,ACCESS='DIRECT , 

INITtALSIZE=50,PECORDSTZE=64) 

ae f i le for temporary storage. 
Create a 50 blocV: direct termination. 

The file is deleted at proyi 

0 p EN (UNIT=I ,NAME=' MTO: DATA. DAT' , BLOCKSIZ E=8192 , 

"" T.PE-EEW .EEE-14) size £or 

create a file on magnetic tape «th • ^ 

efficient processing. 

T mamf-'MTO’DATA.DAT 1 ,READONLY, 

OT “ Tvp" i"KS?ZE-8192, 

. . „evious example for input, 

open the file created in the prevrou 


5.9.7 rt.QSE Statem ent 

The CLOSE statement has the form: 

CLOSE (UNIT=u [,DISPOSE=p][,ERR=s]) 


U 


is a logical unit number. £lle . 

is a literal that^etermine^^^dispositron U 

specified^ A, .KiT f li-ea^ tolx^ after the 

CLOSE^' 1 PRINT^causes the file to be printec> o^che^y 

^'printer and t h ffi.. the default ra 

default is ’DELETE , 

'SAVE'- 


is an executable statement label. 


s is an T ^ e disposition 

The CEOSE —ent E dU t CO„nect Bs » p file d fro» h a ^sitipn^e cif ^ ^ 
KrW^aiatement except that^^il^o^e^ ^ read _o„l y access be 
not be saved or princea 

_ r\r rlPtletOu* 










































TNPUT/CUTPUT 


STATEMENTS 


Examples 

CLOSE(UNIT-1, DISPOSE*-PiUNT.) 

Close the file on unit j „„ „ 

CLOSE(UN IT=J,DTSPOSE='DELETE',ERR=99) 

Close the file on unit j and delete u _ 


5 ' 10 - NC0DE A " n DECODE Mm — 


S “f™"“;s;„rr rt *!* * *«. 

however, these alff* Unlike conventional for!' f ° rmac to characte 
arrays in the PORtIai^S . take P^-ce entirely tlV/en 

^ DEC0DE ^ one written as f oUowS! 

ENCODE (c,f,b[, ERR= S ])[list] 

DECODE(c,f,b[,ERR= S ])[list] 

9 h Of an external record.) ” analogous to the 


is a format specifier ,, 

one record, ,„ P e^ror'contfft^ 2“,“ ^ies 


"lore ths 


^^ ^hc name of an e^rr^\? 

ENCODE statement, th^ ""''‘““l or variable. r„ 
he DECODE statement it onni- ^ recGiv es the characters 
e translated to internal format? the characte rs that are 


is an executable abatement label 


list is an i/o list Tn uu 

contains the data that ?<, f NC 5 >DE statement, the i/o i• 
the DECODE statement, thl list COnver ted to characters ] 

- encode » 

thl'inlVty lie fotmatspltt^■ to tran slated t 

The DECODE t ' an3l ° 90US ‘ ^ 1 

interpreted 5 ai^tonttld character da ta in the entity h 
assigned to the T/n i * tG ? ac cording to the form^ ntl ^y b to b( 
**“ statement 1/0 Ust t2ie £2“ “ 

if the entity b io 

in lh * " a « «* sub^rr^^o^Js^:;?"^ ° f arra y are 


processe 


encode 

decode 
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input/output statements 

bv the ENCODE or DECODE 

The number o£ characters that can bejprocess^ the entit^b.in that 

statement 1S fi „ de ?NTEGEIi*2 array, for example, characte[S is twice 
statement. An so thc maximum numbe 

th^number o?“lements in that array. 

The interaction between format control and the I/O Hat 
Sr a formatted I/O statement. 

Example 


DIMENSION A(3),K(3) 
DATA A 

DECODE (12,100,A) K 
FORMAT (314) 


*9012'/ 


100 FORMAT (314) v A 

Execution of t^ e DECODE j^^gg^format 3 ! spec if ied C by C statement 100) and 

stored S foUoL: 

K (1) = 1234 
K (2) = 5678 
K (3) = 90 12 







CHAPTER 6 

format statements 

6 * 1 OVERVIEW 

format statemenf c - 

™e"n>5i3 , i£;j e statements used . 

transmitted a ®J ent des cribes thp f with ENCODE and nprnnr conjunction 

" M *«-- d - «&. rr-- ^ -sss* «««.«. 

The —t has the fot ., " P8rf — 

FORMAT (a, f c f 

where each f i s a f . 1 1 282 *" fn<3 n ; F ° Rl1 

e nclosed i n n le ld descriptor 


W 

d 


re Peat^ > count^i s t0 - be -PPliJd r S J;! cifies that tl 

15 a format code. petition. 

specifies the fi 0 ij 

ne fl ^ld width. 

of characters 


t0 the right 


decimal 6 p 0 i^t. num ^ er 

Tfle terms r , w and . ri 90 t of the 

° r squat to 255 . a ” d d »“t an be „„ sig „ 9d 

The field separaf lnte9dr CO " st -t s less than 

f McUon of Jeino S are c °”»»a and slash . 

riptors used in format specifications 


are as follows: 


1 . Integer: 

2. Logical* 

3 


Iw, 


Lw 


Ow 


Real, ple x: 

Precision, comp 


j Fiw d t Gw • ^ 

Fw.d, Ew.d, Dw.d, 

H , .', nX, Tn, Q» 

Aw, nH, •• 


i and editing: ' specifi eS a 

4. Literal and e field deS criptots, n sp 

b. P"— by a — 

, t-he F, E, D, or G field 

AnY ° f nf the form: 
factor of the 

127 to 

, lUoaany 

fi^tbat # f t «S-’scale facto, is 

scaled to the let . sc anned ft°" 



6.2 nELD_DESCRlffi^ ca n appear ^ ^ons^The 

. field descriptors that ^ followin g aec “ eldf but 
The individual- f Scribed in detail the external 

specification ar lea ding J^e . 

“lit »n 6 na trailing spaces 


6.2-1 laiali^ilEES translation o£ integer data. 

The I field descriptor govern 

has the form: 

Iw . read w characters 

Th e I field descr iptor ^causes ^an^inpot^i^^gg" ga Jin teger^val^e^to^th^ 

corresponding*integer^element^of^t^e^ ^decimal ^point^or^exp^n^ 

5b.“ field%escriptor interprets “field exceeds^the first 

corresponding 6 integer ll-tJ^UrSl ^ £ield ^vai^ a 

- 6 

field preceded by arPlf^pIe-. 

positive value. 
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14 

13 

19 

19 


£ 2 LternaI_Fie 2 ^ 

2788 

-26 

AAAAAA322 

3.12 


^^^^j-Rep resentafinn 


2788 
-26 
312 

n °t permitted; error 


Bll -'k&SFS* ‘»™ lt th 

ltn asterisks. p Gr 


Format 


13 

14 

15 
12 
13 
17 


Int ernal Vai,,^ 



6,2,2 2_Field_Descriptor 



4 “ “» —-ion of octal values _ 

Ow 


The 0 field de 

f or 3 



External Fielrf 


32767 
16234 
13AAAA 
97 A 


rw , Internal 
•^5l-g£ EresentaHnn 

32767 

1623 

130000 

not permitted; error 


The 0 field descrin^ 

field W °JhaJacters r i r ong 0nd I? 9 a "/ 0 °list t eiJijJ h t0 transmit tl 
field S ■ “S' i"=«Ld° ’if th ‘5% data —•m, 9 ^ . to 

U a “ e ls 1 transmit ted' 5 '"invito' 

—t „ US t h. of St-: « r t. io ( fc « ; . t co.ptSf’t.,;. — ; 

y^e. For example: 
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sentation 


format statements 


Format 

06 

06 

02 

04 

05 


Inte 


r nal(Dec_imalJ—Valjje 


32767 

-32767 

14261 

27 

13.52 


A77777 

100001 

** 

AA33 

not permittedj error 


_ „ r. rinser ipto_r siting of 

::: - 

real « a ' f i? has the form: 

complex values. 


Fw.d 


from 


„,,,eps w characters to be i®f to the 

0„ input, the r «•« -signed^ S»-JlaX* f-^tie'e 

mwWWffiam 

is considered to^be £ gU appearances of 

have a value than or equal to d j. s 

must be gteate eltheI a decimal point not » -post'd digits 

I£ the field contains ne h digits, in h field corita ^ id es 

b a S d thrrtg^if“”veci.al point.. £ JJ,*eeimal^in^overr rde 

fsCssigned to the list element. .n 


Format 


Uic 

For example: 

I Rpnresenta_tip_n 

„. ■« j mternal_3e£re^- 

External Field 


F8.5 
F8.5 
F8.5 
F5.2 


123456789 
-1234.567 
24.77E+2 
1234567.89 


123.45678 
-1234.56 
2477.0 
123.45 


° c "orresp P onding the i/O f 

£ islrirtTrets - " ts> 

entice-field*is fill** " ith « s “ tlSkS - enough to accommodate a 

. ,. h coecified must be 1 9 suppressed) t f 
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Format 


Internal Value External Representation 


F8.5 
F9.3 
F2.3 
F10.4 
F5.2 
F5.2 


2.3547188 

8789.7361 

51.44 

-23.24352 

325.013 

-.2 


A2.35472 

A8789.736 

** 

AA-23.2435 
* * * * * 

- 0.20 


6.2.4 E Field Descriptor 

The E field descriptor specifies the transmission of real or double 
precision values in exponential format. It has the form: 

Ew.d 


The E field descriptor causes an input statement to input w characters 
from the external record. It interprets and assigns that data in 
exactly the same way as the F field descriptor. For example: 


Format 


External Field 


Internal Representation 


E9.3 
E12.4 
E15.3 
E12.5 


734.432E3 
AA1022.43E-6 
52.3759663AAAAA 
210.5271D+10 


734432.0 
1022.43E-6 
52.3759663 
210.5271E10 


Note that in the last example the E field descriptor disregards the 
double precision connotation of a D exponent field indicator and 
treats it as though it were an E indicator. 

The E field descriptor causes an output statement to transmit the 
value of the corresponding list element to an external field w 
characters in width, right justified. If the number of characters in 
the converted data is less than w, leading spaces are inserted; if 
the number of characters exceeds w, the entire field is filled with 
asterisks. The corresponding I/O list element must be of real, double 
precision, or complex type. 


Data output under control of the E field descriptor is transmitted in 
a standard form, consisting of a minus sign if the value is negative 
(plus signs are suppressed), a zero, a decimal point, d digits to the 
right of the decimal, and a 4-character exponent of the form: 


or 


E+nn. 


E-nn 

where nn is a 2-digit integer constant. The d digits to the right of 
the decimal point represent the entire value, scaled to a decimal 
fraction. 

Because w must be large enough to include a minus sign (if any are 
expected), a zero, a decimal point, and an exponent, in addition to d 
digits, w should always be equal to or greater than (d+7). Some 
examples are: 
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Format 


Internal Value External Representation 


E9.2 

E12.5 

E12.3 

E10.3 

E5.3 


475867.222 

475867.222 

0.00069 

-0.5555 

56.12 


AO.48E+06 
AO .47587E+06 
AAA0.690E-03 
-0.556E+00 
***** 


6.2.5 D Field Descriptor 

The D field descriptor specifies the transmission of real or double 
precision values. It has the form: 

Dw.d 


On input, the D field descriptor functions exactly as an equivalent E 
field descriptor, except that the input data is converted and assigned 
as a double precision entity, as in the following examples: 


Format 


External Field 


Internal Representation 


D10.2 
D10.2 
D15.3 


12345AAAAA 
AA123.45AA 
367.4981763D+04 


12345000.0D0 
123.45D0 

3.674981763D+06 


On output the effect of the D field descriptor is identical to that of 
the E field descriptor, except that the D exponent field indicator is 
used in place of the E indicator. For example: 


Format 


Internal Value 


External Representation 


D14.3 
D23.12 
D9.6 


0.0363 

5413.87625793 

1.2 


AAAAA0 .363D-01 
AAAA A0.541387625793D+04 
********* 


6.2.6 G Field Descriptor 

The G field descriptor transmits real, double precision, or complex 
data in a form that is in effect a combination of the F and E field 
descriptors. It has the form: 

Gw.d 


On input, the G field descriptor functions identically to the F field 
descriptor (see Section 6.2.3). 

On output, the G field descriptor causes the value of the 
corresponding I/O list element to be transmitted to an external field 
w characters in length, right justified. The form in which the value 
is output is a function of the magnitude of the value, as described in 
Table 6-1. 
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Table 6-1 

Effect of Data Magnitude on G Format Conversions 


Data Magnitude 

Effective Conversion 

m < 0.1 

Ew.d 

0.1 < m < 1.0 

F(w-4).d, 1 AAAA 1 

1.0 1 m < 10.0 

F(w-4).(d—1), 1 AAAA* 

10d-2 < m < 10d-l 

F(w-4).1, 1 AAAA 1 

10d-l < m < lOd 

F(w-4).0, 1 AAAA 1 

m _> lOd 

Ew.d 




The 'AAAA 1 field descriptor which is (in effect) inserted by the G 
field descriptor for values within its range, specifies that four 
spaces are to follow the numeric data representation. 


The field width, w, must include space for a minus sign, if any are 
expected (plus signs are suppressed), at least one digit to the left 
of the decimal point, the decimal point itself, d digits to the right 
of the decimal, and (for values that are outside the effective range 
of the G field descriptor) a 4-character exponent. Therefore, w 
should always be equal to or greater than (d+7). Examples of G output 
conversions are: 


Format 

Internal Value 

G13.6 

0.01234567 

G13.6 

-0.12345678 

G13.6 

1.23456789 

G13.6 

12.34567890 

G13.6 

123.45678901 

G13.6 

-1234.56789012 

G13.6 

12345.67890123 

G13.6 

123456.78901234 

G13.6 

-1234567.89012345 


External Representation 

AO.123457E-01 
-0.123457AAAA 
AA1.23457AAAA 
AA12.3457AAAA 
AA123.457AAAA 
A-1234.57AAAA 
AA12345.7AAAA 
AA123457.AAAA 
-0.123457E+0 7 


For comparison, consider the following example of the same values 
output under the control of an equivalent F field descriptor. 


Format 

Internal Values 

External Representation 

F13.6 

0.01234567 

AAAAA0.012346 

F13.6 

-0.12345678 

AAAA-0.123457 

F13.6 

1.23456789 

AAAAA1.234568 

F13.6 

12.34567890 

AAAA12.345679 

F13.6 

123.45678901 

AAA123.456789 

F13.6 

-1234.56789012 

A-1234.567890 

F13.6 

12345.67890123 

A12345.678901 

F13.6 

123456.78901234 

123456.789012 

F13.6 

-1234567.89012345 

************* 
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6.2.7 L Field Descriptor 

The L field descriptor specifies the transmission of logical data. It 
has the form: 

Lw 

The L field descriptor causes an input statement to read w characters 
from the external record. If the first non-blank character of that 

field is the letter T, the value .TRUE. is assigned to the 

corresponding I/O list element. (The corresponding I/O list element 
must be of logical type.) If the first non-blank character of the 

field is the letter F, or if the entire field is blank, the value 

.FALSE. is assigned. Any other value in the external field causes an 
error condition. 

The L field descriptor causes an output statement to transmit either 
the letter T, if the value of the corresponding list element is 
.TRUE., or the letter F, if the value is .FALSE., to an external field 
w characters wide. The letter T or F is in the rightmost position of 
the field, preceded by w-1 spaces. For example: 

Format Internal Value External Representation 

L5 .TRUE. AAAAT 

LI .FALSE. F 


6.2.8 A Field Descriptor 

The A field descriptor specifies the transmission of alphanumeric 
data. It has the form: 

Aw 

On input, the A field descriptor causes w characters to be read from 
the external record and stored in ASCII format in the corresponding 
I/O list element. (The corresponding I/O list element may be of any 
data type.) The maximum number of characters that can be stored in a 
variable or array element depends on the data type of that element, as 
follows: 


I/O List 
Element 


Maximum Number 
of Characters 


Logical*l 
Logical*2 
Logical*4 
Integer*2 
Integer *4 
Real 

Double Precision 
Complex 


1 

2 (FORTRAN IV-PLUS only) 
4 
2 
4 
4 
8 
8 


If w is greater than the maximum number of characters that can be 
stored in the corresponding I/O list element, only the rightmost one, 
two, four, or eight characters (depending on the data type of the 
variable or array element) are assigned to that entity; the leftmost 
excess characters are lost. If w is less than the number of 
characters that can be stored, w characters are assigned to the list 
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element, left justified, and trailing spaces are added to fill the 
variable or array element. For example: 


Format 

External Field 

Internal 

Representation 

A6 

PAGEA# 

# 

(Logical*l) 

A6 

PAGEA# 

A# 

(Integer *2) 

A6 

PAGEA# 

GEA# 

(Real) 

A6 

PAGEA# 

PAGEA#AA 

(Double Precision) 


On output, the A field descriptor causes the contents of the 
corresponding I/O list element to be transmitted to an external field 
w characters wide. If the list element contains fewer than w 
characters, the data appears in the field right-justified with leading 
spaces. If the list element contains more than w characters, only the 
leftmost w characters are transmitted. For example: 


Format 

Internal Value 

External Representation 

A5 

OHMS 

AOHMS 

A5 

VOLTSAAAA 

VOLTS 

A5 

AMPERESA 

AMPER 

» H Field 

Descriptor 



The H field descriptor has the form of a Hollerith constant: 

nHc.c 0 c_ ... c 
12 3 n 

n specifies the number of characters that are to be 

transmitted 

c is an ASCII character. 

When the H field descriptor appears in a format specification, data 
transmission takes place between the external record and the field 
descriptor itself. 

The H field descriptor causes an input statement to read n characters 
from the external record and to place them in the field descriptor, 
with the first character appearing immediately after the letter H. 
Any characters that had been in the field descriptor prior to input 
are replaced by the input characters. 

The H field descriptor causes an output statement to transmit the n 
characters in the field descriptor following the letter H to the 
external record. An example of the use of H field descriptors for 
input and output follows: 

TYPE 100 

100 FORMAT (41H AENTER APROGRAM ATITLE,AUP ATO A2 0 ACHARACTERS) 

ACCEPT 200 

200 FORMAT (20HAATITLEAGOESAHEREAAA) 

The TYPE statement transmits the characters from the H field 
descriptor in statement 100 to the user's terminal. The ACCEPT 
statement accepts the response from the keyboard, placing the input 
data in the H field descriptor in statement 200. The new characters 
replace the words TITLE GOES HERE; if the user enters fewer than 20 
characters, the remainder of the H field descriptor is filled with 
spaces to the right. 
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6.2.9.1 Alphanumeric Literals - An alphanumeric literal can be used 
in place of an H field descriptor. Both types of format specifiers 
function identically. 

The apostrophe character is written within an alphanumeric literal as 
two apostrophes. For example: 

50 FORMAT ( 1 TODAY' 1 SADATEAlS:A 1 ,12,'/ 1 ,12,'/',12) 

A pair of apostrophes used in this manner is considered to be a single 
character. 


6.2.10 X Field Descriptor 
The X field descriptor has the form: 
nX 

The X field descriptor causes an input statement to skip over the next 
n characters in the input record. 

The X field descriptor causes an output statement to transmit n spaces 
to the external record. For example: 

WRITE (5,90) NPAGE 

90 FORMAT (13H1PAGEANUMBERA,12,16X,23HGRAPHICAANALYSIS,ACONT.) 

The WRITE statement prints a record similar to: 

PAGE NUMBER nn GRAPHIC ANALYSIS, CONT. 

where "nn" is the current value of the variable NPAGE. The numeral 1 
in the first H field descriptor is not printed, but is used to advance 
the printer paper to the top of a new page. Printer carriage control 
is explained in Section 6.3. 


6.2.11 T Field Descriptor 

The T field descriptor is a tabulation specifier. It has the form: 

Tn 

where n indicates the character postion of the external record. The 
value of n must be greater than or equal to one, but not greater than 
the number of characters allowed in the external record. 

On input, the T field descriptor causes the external record to be 
positioned to its nth character position. For example, if a READ 
statement inputs a record containing: 

ABCAAAXYZ 

under control of the FORMAT statement: 

10 FORMAT (T7,A3,T1,A3) 

the READ statement would input the characters XYZ first, then the 
characters ABC. 
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On output to devices other than the line printer or terminal, the T 
field descriptor states that subsequent data transfer is to begin at 
the nth character position of the external record. For output to a 
printing device, data transfer begins at position (n-1). The first 
position of a printed record is reserved for a carriage control 
character (see Section 6.3) which is never printed. For example the 
statements: 

PRINT 25 

25 FORMAT (T51,'C0LUMNA2',T21,'C0LUMNA1') 
would cause the following line to be printed: 

Position 20 Position 50 

- 1 - - 1 

COLUMN 1 COLUMN 2 


6.2.12 Q Field Descriptor 

The Q field descriptor, which is simply the letter Q, is used to 
obtain the number of characters in the input record remaining to be 
transmitted during a READ operation. The I/O list element 
corresponding to the Q field descriptor must be of Integer type. 

As an example, the statements: 

READ (4,1000) XRAY,KK,NCHRS,(ICHR(I),I=1,NCHRS) 

1000 FORMAT (E15.7,I4,Q,80A1) 

reads two fields into the variables XRAY and KK. The number of 
characters remaining in the record is stored in NCHRS and exactly that 
many characters are read into the array ICHR. By placing the Q 
descriptor first in the format specification, the actual length of the 
input record can be determined. 

When the Q field descriptor is used with an output statement it has no 
effect except that the corresponding list item is skipped. 


6.2.13 $ Descriptor 

The character $ (dollar sign) appearing in a format specification 
modifies the carriage control specified by the first character of the 
record. The $ descriptor is intended primarily for interactive I/O 
and causes the terminal print position to be left at the end of the 
text written (rather than returned to the left margin) so that a typed 
response will appear on the same line following the output. 


6.2.14 : Descriptor 

The character : (colon) appearing in a format specification causes 
termination of format control if there are no more items in the I/O 
list. It has no effect if there are I/O list items remaining. For 
example the statements: 
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PRINT 1,3 
PRINT 2,4 

1 FORMAT('Al=',12, 'AJ=',12) 

2 FORMAT('AK=',12:,'AL=',12) 

print the following 2 lines: 

1=A3AJ= 

K=A4 

Section 6.7 describes format control in detail. 


6.2.15 Complex Data Editing 

Since a complex value is an ordered pair of real values, input or 
output of a complex entity is governed by two real field descriptors, 
using any combination of the forms Fw.d, Ew.d, Dw.d or Gw.d. 


On input, two successive fields are read and assigned to a complex I/O 
list element as its real and imaginary parts, respectively. For 
example 


Format 

F8.5,F8.5 
E9.1,F9.3 


External Fields 

1234567812345.67 
734.432E8123456789 


Internal Representation 

123.45678, 12345.67 
734.432E8, 12345.678 


On output, the constituent parts of a complex value are transmitted 
under the control of repeated or successive field descriptors. 
Nothing intervenes between those parts unless explicitly stated by the 
format specification. For example: 


Format 


Internal Values 


External Representation 


2F8.5 

E9.2,'A,A',E5.3 


2.3547188, 3.456732 
47587.222, 56.123 


A2.35472A3.45673 
AO.48E+06A,A***** 


6.2.16 Scale Factor 

The location of the decimal point in real and double precision values, 
and in the constituent parts of complex values, can be altered during 
input or output through the use of a scale factor. The scale factor 
has the form: 

nP 

n is a signed or unsigned integer constant in the range -127 to 
+127 specifying the number of positions the decimal point is 
to be moved to the right or left. 

A scale factor may appear anywhere in a format specification, but must 
precede the field descriptors with which it is to be associated. It 
has the forms: 

nPFw.d nPEw.d nPDw.d nPGw.d 
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Data input under control of one of the above field descriptors is 
multiplied by 10~ n before it is assigned to the corresponding I/O list 
element. For example, a 2P scale factor multiplies an input value by 
.01, moving the decimal point two places to the left; a -2P scale 
factor multiplies an input value by 100, moving the decimal point two 
places to the right. If the external field contains an explicit 
exponent, however, the scale factor has no effect. For example: 


Format 


External Field 


Internal Representation 


3PE10.5 
3PE10.5 
-3PE10.5 


AAA37.614A 
AA37.614E2 
AAAA37.614 


.037614 

3761.4 

37614.0 


The effect of the scale factor on output depends on the type of field 
descriptor with which it is associated. For the F field descriptor, 
the value of the I/O list element is multiplied by 10 n before being 
transmitted to the external record. Thus, a positive scale factor 
moves the decimal point to the right; a negative scale factor moves 
the decimal point to the left. 

Values output under control of an E or D field descriptor with scale 
factor are adjusted by multiplying the basic real constant portion of 
each value by 10 n and subtracting n from the exponent. Thus a 
positive scale factor moves the decimal point to the right and 
decreases the exponent; a negative scale factor moves the decimal 
point to the left and increases the exponent. 

The effect of the scale factor is suspended while the magnitude of the 
data to be output is within the effective range of the G field 
descriptor, since it supplies its own scaling function. The G field 
descriptor functions as an E field descriptor when the magnitude of 
the data value is outside its range; the effect of the scale factor 
is therefore the same as described for that field descriptor. 

Note that on input, and on output under control of an F field 
descriptor, a scale factor actually alters the magnitude of the data; 
on output, a scale factor attached to an E, D, or G field descriptor 
merely alters the form in which the data is transmitted. Note also 
that on input a positive scale factor moves the decimal point to the 
left and a negative scale factor moves the decimal point to the right, 
while on output the effect is just the reverse. 


If no scale factor is attached to a field descriptor, a scale factor 
of zero is assumed. Once a scale factor has been specified, however, 
it applies to all subsequent real and double precision field 
descriptors in the same format specification, unless another scale 
factor appears; that scale factor then assumes control. Note that 
format reversion (Section 6.7) has no effect on the scale factor. A 
scale factor of zero can only be reinstated by an explicit OP 
specification. 


Some examples of scale factor effect on output are: 


Format 


Internal Value 


External Representation 


1PE12.3 
1PE12.2 
-1PE12.2 


-270.139 

-270.139 

-270.139 


AA-2.701E+02 
AAA-2.70E+02 
AAA-0.03E+04 
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6.2.17 Grouping and Group Repeat Specifications 

Any field descriptor (except H, T f P, or X) can be applied to a number 
of successive data fields by preceding that field descriptor with an 
unsigned integer constant, called a repeat count y that specifies the 
number of repetitions. For example, the statements: 

20 FORMAT (E12.4,E12.4,E12.4,I5,I5,I5,I5) 

and 

20 FORMAT (3E12.4,4I5) 
have the same effect. 

Similarly, a group of field descriptors can be repeatedly applied to 
data fields by enclosing those field descriptors in parentheses, with 
an unsigned integer constant, called a group repeat count, preceding 
the left parenthesis. For example: 

50 FORMAT (218,3(F8.3,E15.7)) 

is eguivalent to: 

50 FORMAT (18,18 ,^F8.3, E15.7, F8.3, E15.7y F8.3, E15. 1 ) 

12 3 

An H or X field descriptor, which could not otherwise be repeated, can 
be enclosed in parentheses and treated as a group repeat 
specification, thus allowing it to be repeated a desired number of 
times. 

If a group repeat count is omitted, it is assumed to be 1. 


6.2.18 Variable Format Expressions 

An expression can be used in a FORMAT statement wherever an integer 
can be used (except as a Hollerith count) by enclosing it in angle 
brackets. For example: 

FORMAT (I<J+1>) 

causes an I conversion with a field width one greater than the value 
of J at the time the format is scanned. The expression is 
re-evaluated each time it is encountered in the normal format scan. 
If the expression is not of type integer it is converted to integer 
prior to use. Any valid FORTRAN expression can be used, including 
function calls and references to dummy arguments. 

A complete example is shown in Figure 6-1. 

The value of a variable format expression must obey the restrictions 
on magnitude applying to its use in the format or an error condition 
results. 
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100 

10 

c 


101 

20 


DIMENSION A(5) 

DATA A/1.,2.,3.,4.,5./ 

DO 10 I = 1,10 
WRITE (5,100) I 
FORMAT(I<MAX0(I,5)>) 
CONTINUE 


DO 20 I = 1,5 

WRITE (5,101) (A(I) ,J=1,1) 

FORMAT (<I>F10.<I—1>) 
CONTINUE 
END 


produces the following output when executed; 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 . 

2.0 

3.00 

4.000 

5.0000 




2.0 

3.00 

4.000 

5.0000 


3.00 

4.000 

5.0000 


4.000 

5.0000 


5.0000 


RffiBi! 


Figure 6-1 

Variable Format Expression Example 


6.2.19 Default Field Descriptors 

If the field descriptors I, L, F, E, D, G, or A are written without 
any field width value (e.g., F) , a default value for w and d is 
supplied based upon the data type of the I/O list element. 

The values for w and d are shown in Table 6-2. 


Table 6-2 

Default Field Descriptor Values 


Field Descriptor 

List Element 

w 

d 

I or O 

TNTEGER*2 

7 


I or O 

INTEGER*4 

12 


L 

LOGICAL 

2 


F,E,G or D 

REAL, COMPLEX 

15 

7 

F,E,G or D 

DOUBLE PRECISION 

25 

16 

A 

LOGICAL*l 

1 


A 

LOGICAL*2,INTEGER*2 

2 


A 

LOGICAL*4,INTEGER*4 

4 


A 

REAL,COMPLEX 

4 


A 

DOUBLE PRECISION 

8 



Note that for A format, the actual length of the corresponding I/O 
list element is used. 
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6.3 CARRIAGE CONTROL 

The first character of every record transmitted to a printing device 
is never printed; instead, it is interpreted as a carriage control 
character. The FORTRAN I/O system recognizes certain characters for 
this purpose; the effects of these characters are shown in Table 6-3. 


Table 6-3 

Carriage Control Characters 


Character 

Effect 

A space 

Advances one line 

0 zero 

Advances two lines 

1 one 

Advances to top of 
next page 

+ plus 

Does not advance 
(allows overprinting) 

$ dollar sign 

Advances one line before printing 
and suppresses carriage 
return at the end of the 
record 


Any character other than those described in Table 6-3 is treated as 
though it is a space, and is deleted from the print line. 


6.4 FORMAT SPECIFICATION SEPARATORS 

Field descriptors in a format specification are generally separated 
from one another by commas. The slash (/) record terminator can also 
be used to separate field descriptors. A slash causes the input or 
output of the current record to be terminated and a new record to be 
initiated. For example: 

WRITE (5,40) K,L,M,N,0,P 
40 FORMAT (306/16,2F8.4) 

is equivalent to: 

WRITE (5,40) K,L,M 
40 FORMAT (306) 

WRITE (5,50) N,0,P 
50 FORMAT (I6,2F8.4) 

It is possible to bypass input records or to output blank records by 
the use of multiple slashes. If n consecutive slashes appear between 
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two field descriptors, they cause (n-1) records to be skipped on input 
or (n-1) blank records to be output. (The first slash terminates the 
current record; the second slash terminates the first skipped or 
blank record, and so on.) If n slashes appear at the beginning or end 
of a format specification, however, they result in n skipped or blank 
records, because the initial and terminal parentheses of the format 
specification are themselves a record initiator and record terminator, 
respectively. An example of the use of multiple record terminators is 
as follows: 

WRITE (5,99) 

99 FORMAT ( * 1 1'T51'HEADINGALINE 1 //T51 1 SUBHEADINGALINE'//) 

The above statements output the following: 

Column 50, top of page 

HEADING LINE 
(blank line) 

SUBHEADING LINE 
(blank line) 

(blank line) 


6.5 EXTERNAL FIELD SEPARATORS 

A field descriptor such as Fw.d specifies that an input statement is 
to read w characters from the external record. If the data field in 
question contains fewer than w characters, the input statement would 
read some characters from the following field unless the short field 
were padded with leading zeros or spaces. To avoid the necessity of 
doing so, an input field containing fewer than w characters may be 
terminated by a comma, which overrides the field descriptor's field 
width specification. This practice, called short field termination , 
is particularly useful when entering data from a terminal keyboard. 
It may be used in conjunction with I, 0, F, E, D, G, and L field 
descriptors. For example: 

READ (6,100) I,J,A,B 
100 FORMAT (216,2F10.2) 

If the external record input by the above statements contains: 


1,-2,1.0,35 


Then the following assignments take place: 

1 = 1 
J = -2 
A = 1.0 
B = 0.35 

Note that the physical end of the record also serves as a field 
terminator. Note also that the d part of a w.d specification is not 
affected as illustrated by the assignment to B. 
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Only fields of fewer than w characters can be terminated by a comma. 
If a field of w characters or greater is followed by a comma, the 
comma will be considered to be part of the following field. 

Two successive commas, or a comma following a field of exactly w 
characters, constitutes a null (zero-length) field. Depending on the 
field descriptor in question, the resulting value assigned is 0, 0.0, 
0D0, or .FALSE.. 

A comma cannot be used to terminate a field that is to be read under 
control of an A, H, or alphanumeric literal field descriptor. If the 
physical end of the record is encountered before w characters have 
been read, however, short field termination is accomplished and the 
characters that were input are assigned successfully. Trailing spaces 
are appended to fill the corresponding I/O list element or the field 
descriptor. 


6.6 OBJECT TIME FORMAT 

Format specifications may be stored in arrays. Such a format 
specification (termed an object time format) can be constructed or 
altered during program execution. The form of a format specification 
in an array is identical to a FORMAT statement, except that the word 
FORMAT and the statement label are not present. The initial and 
terminal parentheses must appear, however. An example of object time 
format is: 


REAL TABLE(5,5) 

DOUBLE PRECISION FORRAY(6),RPAR,FBIG,FMED,FSML 
DATA FORRAY(1),RPAR,FBIG,FMED,FSML/ * 1 'F8.2, 1 , 

1 1 F9.4,', 1 F9.6,'/ 

DO 20 J=l,5 
DO 18 1=1,5 

IF (TABLE(I,J) .LT. 100 .AND. TABLE(I,J) .GT. 0.1) 

1 FORRAY(1+1) = FMED 

IF (TABLE(I,J) .GE. 100.) FORRAY(I+l) = FBIG 
IF (TABLE(I,J) .LE. 0.1) FORRAY(I+l) = FSML 
18 CONTINUE 

FORRAY(1+1) = RPAR 

WRITE (5,FORRAY) (TABLE(K,J),K=1,5) 

20 CONTINUE 
END 

In this example, the DATA statement assigns a left parenthesis to the 
first element of FORRAY and assigns a right parenthesis and three 
field descriptors to variables for later use. The proper field 
descriptors are then selected for inclusion in the format 
specification, based on the magnitude of the individual elements of 
array TABLE. A right parenthesis is then added to the format 
specification just before its use by the WRITE statement. Thus, the 
format specification changes with each iteration of the DO loop. 


6.7 FORMAT CONTROL INTERACTION WITH INPUT/OUTPUT LISTS 

Format control is initiated with the beginning of execution of a 
formatted I/O statement. Each action of format control depends on 
information provided jointly by the next element of the I/O list (if 
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n. 


* 


o 

c 

c 


* 


♦ 



one exists) and the next field descriptor of the FORMAT statement or 
format array. Both the I/O list and the format specification, except 
for the effects of repeat counts, are interpreted from left to right. 

If the I/O statement contains an I/O list, at least one field 
descriptor of a type other than H, X, T or P must exist in the format 
specification. An execution error occurs if this condition is not 
met. 

When a formatted input statement is executed, it reads one record from 
the specified unit and initiates format control; thereafter, 
additional records can be read as indicated by the format 
specification. Format control demands that a new record be input 
whenever a slash is encountered in the format specification, or when 
the last outer right parenthesis of the format specification is 
reached and I/O list elements remain to be filled. Any remaining 
characters in the current record are discarded at the time the new 
record is read. 

When a formatted output statement is executed, it transmits a record 
to the specified unit as format control terminates. Records may also 
be output during format control if a slash appears in the format 
specification or if the last outer right parenthesis is reached and 
more I/O list elements remain to be transmitted. 

Each field descriptor of types I, 0, F, E, D, G, L, A, and Q 
corresponds to one element in the I/O list. No list element 
corresponds to an H, X, P, T, or alphanumeric literal field 
descriptor. In the case of H and alphanumeric literal field 
descriptors, data transfer takes place directly between the external 
record and the format specification. 

When format control encounters an I, 0, F, E, D, G, L, A, or Q field 
descriptor, it determines if a corresponding element exists in the I/O 
list. If so, format control transmits data, appropriately converted 
to or from external format, between the record and the list element, 
then proceeds to the next field descriptor (unless the current one is 
to be repeated). If there is no corresponding list element, format 
control terminates. 

When the last outer right parenthesis of the format specification is 
reached, format control determines whether or not there are more I/O 
list elements to be processed. If not, format control terminates. If 
additional list elements remain, however, the current record is 
terminated, a new one initiated, and format control reverts to the 
rightmost top-level group repeat specification (the one whose left 
parenthesis matches the next-to-last right parenthesis of the format 
specification). (This concept is known as format reversion.) If no 
group repeat specification exists in the format specification, format 
control returns to the initial left parenthesis of the format 
specification. Format control continues from that point. 


6.8 SUMMARY OF RULES FOR FORMAT STATEMENTS 

The following is a summary of the rules pertaining to the construction 
and use of the FORMAT statement or format array and its components, 
and to the construction of the external fields and records with which 
a format specification communicates. 
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6.8.1 General 

1. A FORMAT statement must always be labeled. 

2. In a field descriptor such as rlw or nX, the terms r, w, and 

n must be unsigned integer constants greater than zero. The 

repeat count and field width specification may be omitted. 

3. In a field descriptor such as Fw.d, the term d must be an 
unsigned integer constant. It must be present in F, E, D, 
and G field descriptors even if it is zero. The decimal 
point must also be present. The field width specification, 
w, must be greater than or equal to d. The w and d must 
either both be present or both omitted. 

4. In a field descriptor such as nHc^^ ... c , exactly n 

characters must be present following the H format code. Any 

ASCII character may appear in this field descriptor (an 

alphanumeric literal field descriptor follows the same 
rule) . 

5. In a scale factor of the form nP, n must be a signed or 
unsigned integer constant in the range -127 to 127 
inclusive. Use of the scale factor applies to F, E, D, and 
G field descriptors only. Once a scale factor has been 
specified, it applies to all subsequent real or double 
precision field descriptors in that format specification 
until another scale factor appears? an explicit OP 
specification is required to reinstate a scale factor of 
zero. Note that format reversion has no effect on the scale 
factor. 

6. No repeat count is permitted in H, X, T or alphanumeric 
literal descriptors unless those field descriptors are 
enclosed in parentheses and treated as a group repeat 
specification. 

7. If an I/O list is present in the associated I/O statement, 
the format specification must contain at least one field 
descriptor of a type other than H, X, P, T or alphanumeric 
literal. 

8. A format specification in an array must be constructed 
identically to a format specification in a FORMAT statement, 
including the initial and terminal parentheses. When a 
format array name is used in place of a FORMAT statement 
label in an I/O statement, that name must not be 
subscripted. 


6.8.2 Input 

1. An external input field with a negative value must be 
preceded by a minus symbol? a positive value may optionally 
be preceded by a plus sign. 

2. An external field whose input conversion is governed by an I 
field descriptor must have the form of an integer constant. 
An external field input under control of an 0 field 
descriptor must have the form of an octal constant (Section 
2.4.5), without a leading double quote. Neither can contain 
a decimal point or an exponent. 
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3. An external field whose input conversion is handled by an F, 
E, or G field descriptor must have the form of an integer 
constant or a real or double precision constant (Section 
2.4.2). It can contain a decimal point and/or an E or D 
exponent field. 

4. If an external field contains a decimal point, the actual 
size of the fractional part of the field, as indicated by 
that decimal point, overrides the d specification of the 
corresponding real or double precision field descriptor. 

5. If an external field contains an exponent, it causes the 
scale factor (if any) of the corresponding field descriptor 
to be inoperative for the conversion of that field. 

6. The field width specification must be large enough to 
accommodate, in addition to the numeric character string of 
the external field, any other characters that can be present 
(algebraic sign, decimal point, and/or exponent). 

7. A comma is the only character that is acceptable for use as 
an external field separator. It is used to terminate input 
of fields that are shorter than the number of characters 
expected, or to designate null (zero-length) fields. 


c 

o 


* 


6.8.3 Output 

1. A format specification must not demand the output of more 
characters than can be contained in the external record (for 
example, a line printer record cannot contain more than 133 
characters including the carriage control character). 

2. The field width specification, w, must be large enough to 
accommodate all characters that may be generated by the 
output conversion, including an algebraic sign, decimal 
point, and exponent (the field width specification in an E 
field descriptor, for example, should be large enough to 
contain (d + 7) characters). 

3. The first character of a record output to a line printer or 
terminal is used for carriage control; it is never printed. 
The first character of such a record should be a space, 0,1, 
$, or + . Any other character is treated as a space and is 
deleted from the record. 


-r 
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This chapter 
Specification 


discusses the FORTRAN specification statements, 
statements are nonexecutable. They provide the 
information necessary for the proper allocation and initialization of 
variables and arrays, and define other characteristics of the symbolic 
names used in the program. 


IMPLICIT 


7.1 IMPLICIT STATEMENT 

The IMPLICIT statement overrides the implied data type of symbolic 
names, in which all names that begin with the letters I, J, K, L, M, 
or N are presumed to represent integer data and all names beginning 
with any other letter are presumed to be real. 

The IMPLICIT statement has the form: 

IMPLICIT typ(a[,a]...) [,typ (a [ ,a]...)]... 

typ is one of the following data type specifiers: 

INTEGER 

INTEGER*2 

INTEGER*4 

REAL 

REALM 

REALM 

DOUBLE PRECISION 

COMPLEX 

C0MPLEX*8 

BYTE 

LOGICAL 

LOGICAL*l 

LOGICALM 

L0GICAL*2 

a is an alphabetic specification in either of the general forms: 

c 


or 


c 


1 


-c 


2 


c 


c 


is an alphabetic character. 
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The latter form specifies a range of letters, from cl through c2, 
which must occur in alphabetical order. 

The IMPLICIT statement assigns the specified data type to all symbolic 
names that begin with any specified letter, or any letter within a 
specified range, and which have no explicit type declaration. For 
example, the statements: 

IMPLICIT INTEGER (I,J,K,L,M,N) 

IMPLICIT REAL (A-H, 0-Z) 

represent the default in the absence of any data type specifications. 
IMPLICIT statements must not be labeled. 

Examples 

IMPLICIT DOUBLE PRECISION D 

IMPLICIT COMPLEX (S,Y), L0GICAL*1 (L,A-C) 

TYPE DEC¬ 

LARATION 7.2 TYPE DECLARATION STATEMENTS 

Type declaration statements explicitly define the data type of 
specified symbolic names. 

Type declaration statements have the form: 
typ v [ ,v] ... 

typ is one of the following data type specifiers: 

BYTE 

LOGICAL 

LOGICAL*l 

LOGICALM 

INTEGER 

INTEGER*2 

INTEGERM 

REAL 

REALM 

REALM 

DOUBLE PRECISION 

COMPLEX 

COMPLEX*8 


LOGICAL*2 


v is the symbolic name of a variable, array, statement 
function or FUNCTION subprogram, or an array declarator. 

A type declaration statement causes the specified symbolic names to 
have the specified data type; it overrides the data type implied by 
the initial letter of a symbolic name. 

A type declaration statement can define arrays by including array 
declarators (see Section 2.6) in the list. In each program unit, an 
array name can appear only once in an array declarator. 
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A symbolic name can be followed by a data type length specifier of the 
form *s, where s is one of the acceptable lengths for the data type 
being declared. Such a specification overrides, for the item with 
which it was specified, the length attribute implied by the statement. 
For example: 

INTEGERS I, J, K, M12*4, Q, IVEC*4(10) 

REAL*8 WX1, WXZ, WX3*4, WX5, WX6*8 

Type declaration statements should precede all executable statements 
and all specification statements except the IMPLICIT statement. It 
must precede the first use of any symbolic name it defines. 

The data type of a symbolic name can be explicitly declared only once. 

Type declaration statements must not be labeled. 

Examples 


INTEGER COUNT, MATRIX(4,4), SUM 
REAL MAN,IABS 
LOGICAL SWITCH 


DIMENSION 


7.3 DIMENSION STATEMENT 

The DIMENSION statement defines the number of dimensions in an array 
and the number of elements in each dimension. 

The DIMENSION statement has the form: 

DIMENSION a(d) [ ,a (d)]... 

a is the symbolic name of an array. 

d is a dimension declarator. 

Each a(d) is an array declarator as described in Section 2.6. 

The DIMENSION statement allocates a number of storage locations, one 
for each element in each dimension, to each array named in the 
statement. Each storage location is one, two, four or eight bytes in 
length, as determined by the data type of the array. The total number 
of locations assigned to an array is equal to the product of all 
dimension declarators in the array declarator for that array. For 
example: 

DIMENSION ARRAY(4,4), MATRIX(5,5,5) 

defines ARRAY as having 16 real elements of two words each, and MATRIX 
as having 125 integer elements of one word each. 

For further information concerning arrays and the storage of array 
elements, see Section 2.6. 

Array declarators can also appear in type declaration and COMMON 
statements; however, in each program unit, an array name can appear 
in only one array declarator. 

DIMENSION statements must not be labeled. 
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Examples 

DIMENSION BUD(12,24,10) 

DIMENSION X(5,5,5),Y(4,85),Z(100) 
DIMENSION MARK(4,4,4,4) 


COMMON 


7.4 COMMON STATEMENT 

A COMMON statement defines one or more contiguous areas (blocks) of 
storage. Each block is identified by a symbolic name; in addition, 
one common block is also called the blank common block. A COMMON 
statement also defines the order of variables and arrays that are part 
of each common block. 

Data in COMMON can be referenced from different program units by the 
same block name. 


The COMMON statement has the form: 


COMMON l/lcb]/] nlist[[,]/[cb]/ nlist]... 

cb is a symbolic name, called a common block name, or is blank. 
If the first cb is blank, the first pair of slashes can be 
omitted. 

nlist is a list of variable names, array names, and array 
declarators separated by commas. 

A common block name can be the same as a variable or array name; 
however, it cannot be the same as the name of a function or a 
subroutine, or a function or subroutine entry, in the executable 
program. 

Common blocks with the same name that are declared in different 
program units all share the same storage area when those program units 
are combined into an executable program. 


Because assignment of components to common is on a one-for-one storage 
basis, components assigned by a COMMON statement in one program unit 
should agree in data type with those placed in common by another 
program unit. For example, if one program unit contains the 
statement: 


COMMON CENTS 

and another program unit contains the statement: 

COMMON MONEY 

incorrect results can occur since the 1-word integer variable MONEY is 
made to correspond to the high-order word of the real variable CENTS. 

Care must be taken when LOGICAL*l elements are assigned to common, to 
ensure that any data of other types, assigned following the LOGICAL*l 
data, is allocated on a word boundary. All common blocks start on a 
word (even) boundary. 
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Example 

Main Program Subprogram 

COMMON HEAT,X/BLK1/KILO,Q SUBROUTINE FIGURE 

COMMON /BLK1/LIMA,R/ /ALFA,BET 
• • 

CALL FIGURE 

• • 

RETURN 

END 

The COMMON statement in the main program places HEAT and X in blank 
common and places KILO and Q in a labeled common block, BLK1. The 
COMMON statement in the subroutine causes ALFA and BET to correspond 
to HEAT and X in blank common and makes LIMA and R correspond to KILO 
and Q in BLK1. 


7.4.1 Blank Common and Named Common 

There can be only one blank common block in an entire executable 
program. COMMON statements can be used to establish any number of 
named common blocks. 


7.4.2 COMMON Statements with Array Declarators 


Array declarators can be used in the COMMON statement to define 
arrays. Array names must not be otherwise subscripted (individual 
array elements cannot be assigned to common). In a program unit, an 
array name can appear only once in an array declarator. 


7.5 EQUIVALENCE STATEMENT 


EQUIVA 

LENCE 


The EQUIVALENCE statement declares two or more entities to be 
associated (either totally or partially) with the same storage 
location. The EQUIVALENCE statement references components that exist 
in the same program unit. 


The EQUIVALENCE statement has the form: 


EQUIVALENCE (nlist) [, (nlist)]... 

nlist is a list of variables and array elements, separated by 
commas. At least two components must be present in each 
list. 

The EQUIVALENCE statement causes all of the variables or array 
elements in one parenthesized list to be allocated beginning in the 
same storage location. Note that an Integer variable made equivalent 
to a Real variable shares storage with the high-order word of that 
variable. Mixing of data types in this way is permissible. Multiple 
components of one data type can share the storage of a single 
component of a higher-ranked data type. For example: 
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DOUBLE PRECISION DVAR 
INTEGERS IARR (4) 

EQUIVALENCE (DVAR,IARR(1)) 

The EQUIVALENCE statement causes the four elements of the integer 
array IARR to occupy the same storage as the double precision variable 
DVAR. 

The EQUIVALENCE statement can also be used to equate variable names. 
For example, the statement 

EQUIVALENCE (FLTLEN, FLENTH, FLIGHT) 

causes FLTLEN, FLENTH and FLIGHT to have the same definition provided 
they are also of the same data type. 

An EQUIVALENCE statement in a subprogram must not contain dummy 
arguments. 


Examples 

EQUIVALENCE (A,B), (B,C) (has the same effect as 

EQUIVALENCE (A,B,C)) 

EQUIVALENCE (A(1),X), (A(2),Y), (A(3),Z) 


7.5.1 Making Arrays Equivalent 

When an element of an array is made equivalent to an element of 
another array, the EQUIVALENCE statement also sets equivalences 
between the corresponding elements of the two arrays. Thus, if the 
first elements of two equal-sized arrays are made equivalent, both 
entire arrays are made to share the same storage space. If the third 
element of a 5-element array is made equivalent to the first element 
of another array, the last three elements of the first array overlap 
the first three elements of the second array. 

The EQUIVALENCE statement must not attempt to assign the same storage 
location to two or more elements of the same array, nor to assign 
memory locations in any way that is inconsistent with the normal 
linear storage of array elements (for example, making the first 
element of an array equivalent with the first element of another 
array, then attempting to set an equivalence between the second 
element of the first array and the sixth element of the other) . 

In the EQUIVALENCE statement only, it is possible to identify an array 
element with a single subscript (i.e., the linear element number), 
even though the array has been defined as a multi-dimensional array. 

For example, the statements: 

DIMENSION TABLE (2,2), TRIPLE (2,2,2) 

EQUIVALENCE (TABLE(4), TRIPLE(7)) 

result in the entire array TABLE sharing a portion of the storage 
space allocated to array TRIPLE as illustrated in Figure 7-1. 





# 




* 
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Array TRIPLE 

Array TABLE 

Array 

Elemen t 

Array 

Element 

Element 

Number 

Elemen t 

Number 

TRIPLE(1,1,1) 

1 



TRIPLE(2,1,1) 

2 



TRIPLE(1,2,1) 

3 



TRIPLE(2,2,1) 

4 

TABLE(1,1) 

1 

TRIPLE(1,1,2) 

5 

TABLE(2,1) 

2 

TRIPLE(2,1,2) 

6 

TABLE(1,2) 

3 

TRIPLE(1,2,2) 

7 

TABLE(2,2) 

4 

TRIPLE(2,2,2) 

8 




Figure 7-1 

Equivalence of Array Storage 


Figure 7-1 also illustrates that the statements 
EQUIVALENCE (TABLE(1),TRIPLE(4)) 

and 

EQUIVALENCE (TRIPLE(1,2,2), TABLE(4)) 
result in the same alignment of the two arrays. 


Equivalencing arrays with non-unity lower bounds works in a similar 
fashion. For example, an array defined as A(2:3,4) is a sequence of 8 
values. A reference to A(2,2) refers to the third element in the 
sequence. If array A(2:3,4) is to share storage with array B(2:4,4) 
the following statement can be used. 

EQUIVALENCE (A(8), B(10)) 

The entire array A occupies a portion of the storage space allocated 
to array B as illustrated in Figure 7-2. Note also that EQUIVALENCE 
(A, B(3)) and EQUIVALENCE (B(10) r A(3,4)) would have caused the same 
alignment of arrays. 



Figure 7-2 

Equivalence of Arrays with Non-Unity Lower Bounds 
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7.5.2 EQUIVALENCE and COMMON Interaction 

When components are made equivalent to entities stored in common, the 
common block can be extended beyond its original boundaries. An 
EQUIVALENCE statement can only extend common beyond the last element 
of the previously established common block. It must not attempt to 
increase the size of common in such a way as to place the extended 
portion before the first element of existing common. For example: 

Valid Extension of Common 


DIMENSION A(4),B(6) 
COMMON A 

EQUIVALENCE (A(2),B(1)) 


A (1) 

A(2) 

A(3) 

A (4) 





B (1) 

B (2) 

B (3) 

B (4) 

B (5) 

B(6) 


V_^ ^__ j 


Existing Extended 

Common Portion 


Illegal Extension of Common 


DIMENSION A(4) ,B (6) 
COMMON A 

EQUIVALENCE (A(2),B(3)) 



A (1) 

A (2) 

A (3) 

A (4) 


B (1) 

B (2) 

B (3) 

B (4) 

B (5) 

B (6) 



Extended Existing Common Extended 

Portion Portion 


If two components are assigned to the same or different common blocks, 
they must not be made equivalent to each other. 


7.5.3 EQUIVALENCE and LOGICAL*! Arrays 

If an element of a L0GICAL*1 array that is not aligned on a word 
boundary is equivalenced to an array or variable of another data type, 
it can cause that variable or all elements of that array not to be 
aligned on word boundaries. If this occurs, an attempt to reference 
that variable or those array elements causes an error during execution 
of the program. 

EXTERNAL 

7.6 EXTERNAL STATEMENT 

The EXTERNAL statement permits the use of external procedure names 
(functions, subroutines, and FORTRAN Library Functions) as actual 
arguments to other subprograms. 

The EXTERNAL statement has the form: 

EXTERNAL v[,v]... 

v is the symbolic name of a subprogram or the name of a dummy 
argument which is associated with a subprogram name. 
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The EXTERNAL statement declares each name in the list to be the name 
of an external procedure. Such a name can then appear as an actual 
argument to a subprogram. The subprogram can then use the associated 
dummy argument name in a function reference or a CALL statement. 

Note, however, that a complete function reference used as an argument 
(such as CALL SUBR(A,SQRT(B),C), for example) represents a value, not 
a subprogram name; the function name need not be defined in an 
EXTERNAL statement. 

Example 


Main Program 


Subprograms 


EXTERNAL SIN,COS,TAN 


CALL TRIG 


(ANGLE ,SIN,SINE) 


SUBROUTINE TRIG (X,F,Y) 
Y = F (X) 

RETURN 

END 


CALL TRIG 


(ANGLE,COS,COSINE) 


CALL TRIG 


(ANGLE,TAN,TANGNT) 


FUNCTION TAN (X) 

TAN = SIN(X) / COS(X) 

RETURN 

END 


The CALL statements pass the name of a function to the subroutine 
TRIG. The function is subsequently invoked by the function reference 
F(X) in the second statement of TRIG. Thus, the second statement 
becomes in effect: 

Y = SIN(X) , 

Y = COS(X) , or 

Y = TAN(X) 

depending upon which CALL statement invoked TRIG (the functions SIN 
and COS are examples of trigonometric functions supplied in the 
FORTRAN Library.) 


In FORTRAN IV-PLUS, an asterisk (*) can precede a name in the EXTERNAL 
statement list to designate that the name is that of a user supplied 
FUNCTION or SUBROUTINE subprogram and is not the name of a FORTRAN 
library function. See Section 8.2 on FORTRAN Library Functions for 
additional discussion. 

EXTERNAL [*]v[,[*]v]... 
v is the symbolic name of a subprogram. 

Example: 

EXTERNAL COS,*SIN,*TANH,ALPHA 
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DATA 

7.7 DATA STATEMENT 

The DATA initialization statement permits the assignment of initial 
values to variables and array elements prior to program execution. 

The DATA statement has the form: 

DATA nlist/clist/[[, ] nlist/clist/]... 

nlist is a list of one or more variable names, array names, or 
array element names separated by commas. Subscript 

expressions must be constant. 

clist is a list of constants. 

Constants in a clist have the form: 

value 


or 

n * value 

n is a nonzero unsigned integer constant that specifies the 
number of times the same value is to be assigned to successive 
entities in the associated nlist. 

The DATA statement causes the constant values in each clist to be 
assigned to the entities in the preceding nlist. Values are assigned 
in a one-to-one manner in the order in which they appear, from left to 
right. 

When an unsubscripted array name appears in a DATA statement, values 
are assigned to every element of that array. The associated constant 
list must therefore contain enough values to fill the array. Array 
elements are filled in the order of subscript progression. 

When Hollerith data is assigned to a variable or array element, the 
number of characters that can be assigned depends on the data type of 
the component, as shown in Table 2-2. If the number of characters in 
a Hollerith constant or alphanumeric literal is less than the capacity 
of the variable or array element, the constant is extended on the 
right with spaces. If the number of characters in the constant is 
greater than the maximum number that can be stored, the rightmost 
excess characters are not used. 

When a Radix-50 constant is assigned to a variable or array element, 
the number of bytes that can be assigned depends on the data type of 
the component, as shown in Table 2-2. If the number of bytes of the 
Radix-50 constant is less than the length of the component, ASCII null 
characters (zero bytes) are appended on the right. If the number of 
bytes of the constant exceeds the length of the component, the 
rightmost excess bytes are not used. 

The number of constants in a constant list must correspond exactly to 
the number of entities specified in the preceding name list. The data 
types of the data elements and their corresponding symbolic names must 
agree (except in the case of alphanumeric and Radix-50 data). 
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FORTRAN IV-PLUS converts the constant to the type of the variable 
being initialized. 


Example 

INTEGER A(10),BELL 

* DATA A,BELL,STARS/10*0, 7, '****'/ 

The DATA statement assigns zero to all ten elements of array A, the 

* value 7 to the variable BELL, and four asterisks to the real variable 
STARS. 


O 


c 




_ 




_ 
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7.8 PARAMETER STATEMENT 


7 

The PARAMETER statement allows a constant to be given a symbolic name. 
The PARAMETER statement has the form: 

PARAMETER p=C [,p=c] ... 

p is a symbolic name, 

c is a constant. 

Each symbolic name, p, becomes a constant and is defined as che value 
of the constant c. 

Once a symbolic name is defined as a constant, it can appear in any 
position that a constant is allowed; the effect is the same as if the 
constant were written there instead of the name. 

The symbolic name of a constant cannot appear as part of another 
constant except that the symbolic name of a real constant may appear 
as a real or imaginary part of a complex constant. 

A symbolic name in a PARAMETER statement must not be used to identify 
anything other than its corresponding constant in that program unit. 
Such a name cannot appear more than once in PARAMETER statements 
within the same program unit and therefore cannot be used as a 
constant in a PARAMETER statement. 

The symbolic name of a constant assumes the type implied in the form 
of its corresponding constant. The initial letter of the name has no 
effect on its type. Symbolic names of constants cannot appear in type 
declaration statements except in dimension declarator expressions 
within array declarators. 


c 
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PROGRAM 

7.9 PROGRAM STATEMENT 

The PROGRAM statement/ if used/ assigns a name to a main program unit. 
The PROGRAM statement has the form: 

PROGRAM nam 


nam is a symbolic name. 

The PROGRAM statement must be the first statement in the main program; 
its use is optional. The symbolic name may not be the same as the 
name of any entity within the main program and it must not be the same 
as the name of any subprogram, entry, or common block in the same 
executable program. 
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SUBPROGRAMS 


FORTRAN subprograms are divided into two general classes: those that 
are written by the user and those that are supplied by the FORTRAN 
system. Subprograms are also grouped into the categories of 
functions, which includes both arithmetic statement functions and 
FUNCTION subprograms, and subroutines. 


8.1 SUBPROGRAM ARGUMENTS 

Arguments to subprograms are represented in two ways: dummy arguments 
and actual arguments. Dummy arguments are used in the subprogram 
definition to represent the corresponding actual argument. Dummy 
arguments appear in the FUNCTION statement, SUBROUTINE statement or 
arithmetic statement function definition as unsubscripted variable 
names. Actual arguments appear in the function reference or CALL 
statement that references the subprogram and provide actual values to 
be used for computation. Actual arguments can be constants, 
variables, arrays, array elements, expressions or subprogram names. 

Actual and dummy arguments become associated at the time control is 
transferred to the subprogram. Actual and dummy arguments that become 
associated must agree in data type. A dummy argument declared as an 
array can only become associated with an array or array element. 

If an actual argument is a constant, expression or subprogram name, 
the subprogram must not alter the value of the corresponding dummy 
argument. 

Dummy arguments must not appear in COMMON, EQUIVALENCE or DATA 
statements. 


8.2 USER-WRITTEN SUBPROGRAMS 

Control is transferred to a function by means of a function reference 
while control is transferred to a subroutine by a CALL statement. A 
function reference is the name of the function, together with its 
arguments, appearing in an expression. A function always returns a 
value to the calling program. Both functions and subroutines may 
return additional values via assignment to their arguments. A 
subprogram can reference other subprograms, but it cannot, either 
directly or indirectly, reference itself. 
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8.2.1 Arithmetic Statement Function (ASF) 

An arithmetic statement function is a computing procedure defined by a 
single statement, similar in form to an arithmetic assignment 
statement. The appearance of a reference to the function within the 
same program unit causes the computation to be performed and the 
resulting value to be made available to the expression in which the 
ASF reference appears. 

The arithmetic statement function definition has the form: 
f ([p[/Pi...])=e 
f is the name of the ASF. 

p is a dummy argument, 

e is an expression. 

The expression is an arithmetic expression that defines the 
computation to be performed by the ASF. 

A function reference to an ASF has the form: 

f ([p[,p]...]) 

where f is the name of the ASF, and each p is an actual argument. 

When a reference to an arithmetic statement function appears in an 
expression, the values of the actual arguments are associated with the 
dummy arguments in the ASF definition. The expression in the defining 
statement is then evaluated and the resulting value is used to 
complete the evaluation of the expression containing the function 
reference. 

The data type of an ASF is determined either implicitly by the initial 
letter of the name or explicitly in a type declaration statement. 

Dummy arguments in an ASF definition serve only to indicate the 
number, order, and data type of the actual arguments. The same names 
may be used to represent other entities elsewhere in the program unit. 
Note that with the exception of data type, declarative information 
(such as placement in COMMON or declaration as an array) associated 
with such an entity is not associated with the ASF dummy arguments. 
The name of the ASF cannot be used to represent any other entity 
within the same program unit. 

The expression in an ASF definition may contain function references. 
If a reference to another ASF appears in the expression, that function 
must have been defined previously. 

Any reference to an ASF must appear in the same program unit as the 
definition of that function. 

An ASF reference must appear as, or be part of, an expression? it 
must not be used as the left side of an assignment statement. 

Actual arguments must agree in number, order, and data type with their 
corresponding dummy arguments. Values must have been assigned to them 
before any reference to the arithmetic statement function. 



H 


% 


% 


% 
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Examples 


ASF Definitions 

VOLUME(RADIUS) = 4.189*RADIUS**3 
SINH(X) = (EXP(X)-EXP(-X))*0.5 

AVG(A,B,C,3.) = (A+B+C)/3. (Invalid; constant as dummy 

argument not permitted) 

ASF References 


AVG(A,B,C) = (A+B+C)/3. (Definition) 


GRADE = AVG(TEST1,TEST2,XLAB) 

IF (AVG(P,D,Q).LT.AVG(X,Y,Z)) GO TO 300 

FINAL = AVG(TEST3,TEST4,LAB2) (Invalid; data type of third 

argument does not agree with 
dummy argument) 


8.2.2 FUNCTION Subprogram 

A FUNCTION subprogram is a program unit that consists of a FUNCTION 
statement followed by a series of statements that define a computing 
procedure. Control is transferred to a FUNCTION subprogram by a 
function reference and returned to the calling program unit by a 
RETURN statement. 

A FUNCTION subprogram returns a single value to the calling program 
unit by assigning that value to the function's name. The data type of 
the value returned is determined by the function's name. 

The FUNCTION statement has the form: 

[typ] FUNCTION nam[*n][([p[,p]...])] 

typ is a data type specifier. 

nam is a name of the function. 

*n is a data type length specifier. 


p is a dummy argument. 


A function reference that transfers control to a 
has the form: 

FUNCTION 

subprogram 

nam (tp[,p]...]) 

where nam is the symbolic name of the function, 
actual argument. 

and each 

p is an 
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When control is transferred to a FUNCTION subprogram, the values 
supplied by the actual arguments (if any) are associated with the 
dummy arguments (if any) in the FUNCTION statement. The statements in 
the subprogram are then executed. The name of the function must be 
assigned a value before a RETURN statement is executed in that 
function. When control is returned to the calling program unit, the 
value thus assigned to the function's name is made available to the 
expression that contains the function reference, and is used to 
complete the evaluation of that expression. 

The type of a function name may be specified implicitly, explicitly in 
the FUNCTION statement, or explicitly in a type declaration statement. 
The type of the function name as defined in the FUNCTION subprogram 
must be the same as the type of the function name in the calling 
program unit. 

The FUNCTION statement must be the first statement of a function 
subprogram. It must not be labeled. 

A FUNCTION subprogram must not contain a SUBROUTINE statement, a BLOCK 
DATA statement, or a FUNCTION statement other than the initial 
statement of the subprogram. 

Example 


FUNCTION ROOT(A) 

X = 1.0 

2 EX = EXP(X) 

EMINX = l./EX 

ROOT = ((EX+EMINX)*.5+COS(X)-A)/((EX - EMINX)*.5-SIN(X)) 

IF (ABS(X-ROOT).LT.IE-6) RETURN 
X = ROOT 
GO TO 2 
END 

The function in this example uses the Newton-Raphson iteration method 
to obtain the root of the function: 

F(X) = cosh(X) + cos(X) - A = 0 


where the value of A is passed as an argument. The iteration formula 
for this root is: 


Xi + 1 = Xi 


cosh(Xi)+cos(Xi)-A 
sinh(Xi)-sin(Xi) 


which is repeatedly calculated until the difference between Xi and 
Xi+1 is less than 1 x 10”°^ The function makes use of the FORTRAN 
Library functions EXP, SIN, COS7 and ABS. 


8.2.3 SUBROUTINE Subprogram 

A SUBROUTINE subprogram is a program unit that consists of a 
SUBROUTINE statement followed by a series of statements that define a 
computing procedure. Control is transferred to a SUBROUTINE 
subprogram by a CALL statement and returned to the calling program 
unit by a RETURN statement. 
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The SUBROUTINE statement has the form: 

SUBROUTINE nam [([p[,p] . . . ] ) ] 
nam is the name of the subroutine, 
p is a dummy argument. 

The form of the CALL statement is described in Section 4.5. 

When control is transferred to the subroutine, the values supplied by 
the actual arguments (if any) in the CALL statement are associated 
with the corresponding dummy arguments (if any) in the SUBROUTINE 
statement. The statements in the subprogram are then executed. 

The SUBROUTINE statement must be the first statement of a subroutine; 
it must not have a statement label. 

A SUBROUTINE subprogram cannot contain a FUNCTION statement, a BLOCK 
DATA statement, or a SUBROUTINE statement other than the initial 
statement of the subprogram. 

Example 


Main Program 

COMMON NFACES,EDGE,VOLUME 
ACCEPT 65, NFACES,EDGE 
65 FORMAT(12,F8.5) 

CALL PLYVOL 
TYPE 66, VOLUME 
6 6 FORMAT ('AVOLUME=' ,F) 

STOP 

END 


SUBROUTINE Subprogram 


1 

2 

3 

4 

5 

6 

100 


SUBROUTINE PLYVOL 
COMMON NFACES,EDGE,VOLUME 
CUBED = EDGE**3 

GOTO (6,6,6,1,6,2,6,3,6,6,6,4,6,6,6,6,6,6,6,5,6),NFACES 

VOLUME = CUBED * 0.11785 

RETURN 

VOLUME = CUBED 
RETURN 

VOLUME = CUBED * 0.47140 
RETURN 

VOLUME = CUBED * 7.66312 
RETURN 

VOLUME = CUBED * 2.18170 
RETURN 

TYPE 100, NFACES 

FORMAT(' NO REGULAR POLYHEDRON HAS ',13, 'FACES. '/) 

RETURN 

END 


The subroutine in this example computes the volume of a regular 
polyhedron, given the number of faces and the length of one edge. It 
uses the computed GO TO statement to determine whether the polyhedron 
is a tetrahedron, cube, octahedron, dodecahedron, or icosahedron, and 
to transfer control to the proper procedure for calculating the 
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is a tetrahedron, cube, octahedron, dodecahedron, or icosahedron, and 
to transfer control to the proper procedure for calculating the 
volume. If the number of faces of the body is other than 4,6,8,12, or 
20, the subroutine displays an error message on the user's terminal. 


ENTRY 

8.2.4 ENTRY Statement 

The ENTRY statement provides multiple entry points within a 
subprogram. It is not executable and can appear within a function or 
subroutine program after the FUNCTION or SUBROUTINE statement. 
Execution of a subprogram referenced by an entry name begins with the 
first executable statement following the ENTRY statement. 

The ENTRY statement has the form: 

ENTRY nam [([p[,p]•••])] 

nam is the entry name. 

p is a dummy argument. 

The ENTRY statement cannot appear within a DO loop. 

Entry names appearing in ENTRY statements within SUBROUTINE 
subprograms must be referenced by CALL statements, and entry names 
appearing in ENTRY statements within FUNCTION subprograms must be 
referenced as external function references. 

A function entry name can appear in a type declaration statement. 

An entry name can appear in an EXTERNAL statement and be used as an 
actual argument; the entry name in an ENTRY statement cannot be a 
dummy argument. 

Entry names cannot appear in executable statements that physically 
precede the appearance of the entry name in an ENTRY statement. 

The order, number, type and names of the dummy arguments in an ENTRY 
statement can be different from the order, number, type and names of 
the dummy arguments in the FUNCTION statement, SUBROUTINE statement, 
and other ENTRY statements in the same subprogram. However, each 
reference to a function, subroutine, or entry must use an actual 
argument list that agrees in order, number and type with the dummy 
argument list in the corresponding FUNCTION, SUBROUTINE, or ENTRY 
statement. 


8.2.4.1 ENTRY in Function Subprograms - All entry names within a 
function subprogram are associated with the name of the function 
subprogram. Therefore, definition of any entry name or the name of 
the function subprogram causes definition of all the associated names 
chat are of the same type and causes all associated names that are of 
different type to become undefined. The function and entry names are 
not required to be the same type, but at the execution of a RETURN 
statement or the implied return at the end of the subprogram, the name 
used to reference the function subprogram must be defined. Note that 


8-6 








SUBPROGRAMS 


an entry name cannot appear in executable statements that precede the 
appearance of the entry name in an ENTRY statement. 


8.2.4.2 ENTRY and Array Declarator Interaction - A dummy argument is 
undefined if it is not currently associated with an actual argument. 
An adjustable array is undefined if the dummy argument array is not 
currently associated with an actual argument array or if any of the 
variables appearing in the adjustable array declarator are not 
currently associated with an actual argument or are not in a COMMON 
block. Note that there is no retention of argument association 
between one reference of a subprogram and the next reference of that 
subprogram. Consider the following example: 

SUBROUTINE S(A,I,J) 

DIMENSION A(I) 

A (I) = J 

ENTRY S1(T,A,K,L) 

A (I) = A (I) + 1 
END 

If B is a real array with 10 elements, as in 

DIMENSION B(10) 

then the statement 

CALL S(B,2,3) 

would set B(2) = 3 and the statement 

CALL S1(5,E,3,2) 
would increment B(5) by 1. 

A single function routine that provides the hyperbolic functions sinh, 
cosh, and tanh appears in Figure 8-1. 
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C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


C 

C 

C 


C 

C 

C 


■ 


■ 


REAL FUNCTION TANH(X) 

ASF TO COMPUTE TWICE SINH 
TSINH(Y) * EXP(Y) - EXP (-Y) 
ASF TO COMPUTE TWICE COSH 
TCOSH(Y) = EXP(Y) + EXP(-Y) 
COMPUTE TANH 

TANH = TSINH(X) / TCOSH(X) 
RETURN 

COMPUTE SINH 

ENTRY STNH(X) 

SINH * TSINH(X) / 2.0 
RETURN 

COMPUTE COSH 

ENTRY COSH(X) 

COSH = TCOSH(X) / 2.0 
RETURN 

END 


Figure 8-1 

Multiple Functions in a Single Function Subprogram 


lllli 




BLOCK 

DATA 

8.2.5 BLOCK DATA Subprogram 

The BLOCK DATA subprogram is used to assign initial values to entities 
in labeled common blocks, at the same time establishing and defining 
chose blocks. It consists of a BLOCK DATA statement followed by a 
series of specification statements. 

The BLOCK DATA statement has the form: 

BLOCK DATA [nam] 

nam is a symbolic name. 

The statements allowed in a BLOCK DATA subprogram are: Type 
Declaration, IMPLICIT, DIMENSION, COMMON, EQUIVALENCE, and DATA 
statements. 

The specification statements in the BLOCK DATA subprogram establish 
and define common blocks, assign variables and arrays to those blocks, 
and assign initial values to those components. 

A BLOCK DATA statement must be the first statement of a BLOCK DATA 
subprogram. It must not be labeled. 



n 


* 


* 


. ♦ 
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A BLOCK DATA subprogram must not contain any executable statements. 

If any entity in a labeled common block is initialized in a BLOCK DATA 
subprogram, a complete set of specification statements to establish 
the entire block must be present, even though some of the components 
in the block do not appear in a DATA statement. Initial values can be 
defined for more than one block by the same subprogram. 

Example 

BLOCK DATA 
INTEGER S,X 
LOGICAL T,W 
DOUBLE PRECISION U 
DIMENSION R(3) 

COMMON /AREA1/R,S,T,U/AREA2/W,X,Y 

DATA R/l.0,2*2.0/,T/.FALSE./,U/0.214537D-7/,W/.TRUE./,Y/3.5/ 
END 


8.3 FORTRAN LIBRARY FUNCTIONS 

The FORTRAN library functions are listed in Appendix B. Function 
references to FORTRAN library functions are written in the same form 
as function references to user-defined functions. For example, 

R = 3.14159 * ABS(X-l) 

causes the absolute value of X-l to be calculated, multiplied by the 
constant 3.14159, and assigned to the variable R. 

The data type of each library function and the data type of the actual 
arguments is specified in Appendix B. Arguments passed to these 
functions may not be array names or subprogram names. 


8.3.1 Processor-Defined Function References 

The FORTRAN library function names are called processor-defined 
function (PDF) names. Note that the processor-defined functions 
include both the Intrinsic functions and the Basic External Functions 
defined in Standard FORTRAN and are treated in a uniform manner. 

A name appearing in the table of PDF names normally refers to the 
FORTRAN library function. The name is assumed to refer to a 
user-defined function if any of the following conditions exists: 

1. The name appears in a type declaration statement specifying a 
type different from the result type shown in the table. 

2. The name appears in an EXTERNAL statement preceded by an 
asterisk. 

3. The name is used in a function reference with arguments of a 
different type than shown in the table. 
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Processor-defined function references are local to the program unit in 
which they occur and do not affect or preclude the use of the name for 
any other purpose in other program units. 

Use of a PDF name in an EXTERNAL statement with a preceding asterisk 
specifies that :he name refers to a function or subroutine that will 
be provided by the user, and the name becomes a global name in the 
same sense that the names of functions and subroutines are global. 


8.3.2 Generic Function References 

Generic function names provide a means by which some of the FORTRAN 
mathematical functions can be called with selection of the actual 
library routine used based on the type of the argument that occurs in 
the function reference. For example, if X is a real variable, then 
SIN(X) will reference the real valued sine function; while if D is a 
double precision variable then SIN(D) will reference the double 
precision sine function; it is not necessary to write DSIN(D). 

Generic function selection is performed independently for each 
function reference, so that in the example above, both SIN(X) and 
SIN(D) can be used in the same program unit. 

The function names for which generic name selection will be performed 
are shown in Table 8-1. Generic function selection may only be used 
with the argument types shown in the table. 

The names shown in Table 8-1 will lose the generic function selection 
property if used in a program unit in any of the following ways: 

1. In a type declaration statement 

2. As the name of an arithmetic statement function 

3. As a dummy argument name, common block name, variable or 
array name. 

Using a generic name in an EXTERNAL statement does not affect generic 
function selection for function references. When one of the generic 
function names is used in an actual argument list as the name of a 
function to be passed, that use of the name is not subject to generic 
selection (there is no argument list on which to base a selection) and 
the name is treated according to the rules for non-generic FORTRAN 
functions as described in the preceding section. 

The use of a generic function name is local to the program unit in 
which it occurs and does not affect or preclude the use of that name 
as a user-written subprogram name, common block name, and so on, in 
other program units. 



% 


% 


* 
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Table 8-1 

Generic Function Name Summary 



Symbolic Name 

Type of 
Argument 

Type o f 
Result 


ABS 

Integer 

Integer 



Real 

Real 



Double 

Double 



Complex 

Real 


AINT, ANINT 

Real 

Real 



Double 

Double 


INT, NINT 

Real 

Integer 



Double 

Integer 

SNGL 

Integer 

Real 



Double 

Real 


DBLE 

Integer 

Double 



Real 

Double 


MOD, MAX, MIN, SIGN, and DIM 

Integer 

Integer 



Real 

Real 



Double 

Double 


EXP, LOG, SIN, COS, and SQRT 

Real 

Real 



Double 

Double 



Complex 

Complex 


LOGIO, TAN, ATAN, ATAN2, ASIN, 

Real 

Real 


ACOS, STNH, COSH, and TANH 

Double 

Double 


8.3.3 Generic and Processor-Defined Function Usage 

The example in Figure 8-2 illustrates the use of generic and 
processor-defined function references. The name SIN is used in four 
distinct ways in the figure to emphasize the local and global name 
properties of each type of use within a single executable program: 

1. As the name of an arithmetic statement function 

2. As a generic function reference 

3. As a processor-defined function reference 

4. As a user-defined function 
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C 

C COMPARE WAYS OF COMPUTING SINE. 

C 

PROGRAM SINES 

PARAMETER PI = 3.141592653589793238D0 
REAL*8 X 
COMMON V(3) 

C NOTE 1: DEFINE SIN AS AN ASF 
SIN(X) = COS(PI/2-X) 

DO 10 X = -PI, PI, 2*PI/100 
CALL COMPUT(X) 

C NOTE 2: REFERENCE THE ASF SIN 
10 WRITE(6,100) X,V, SIN(X) 

100 FORMAT (5F10.7) 

END 

C 

C 

SUBROUTINE COMPUT(Y) 

REAL*8 Y 

C NOTE 3: MAKE PDF SIN EXTERNAL FOR USE AT NOTE 5. 
EXTERNAL SIN 
COMMON V(3) 

C NOTE 4: GENERIC REFERENCE TO D.P. SINE 
V(l) = SIN(Y) 

C NOTE 5: PDF SINE AS ACTUAL ARGUMENT. 

CALL SUB(Y,SIN) 

END 


C 

C 

SUBROUTINE SUB(A,S) 

C NOTE 6: DECLARE SIN AS NAME OF USER FUNCTION. 
EXTERNAL *SIN 

C NOTE 7: DECLARE SIN AS TYPE REAL*8. 

R£AL*8 A, SIN 
COMMON V(3) 

C NOTE 8: EVALUATE PDF SIN PASSED AT NOTE 5. 

V ( 2) = S (A) 

C NOTE 9: EVALUATE USER DEFINED SIN FUNCTION. 

V ( 3) = SIN(A) 

END 


C 

C 

C NOTE 10: DEFINE THE USER SIN FUNCTION. 

REAL*8 FUNCTION SIN(X) 

INTEGER FACTOR 

SIN = X - X**3/FACTOR(3) + X**5/FACTOR(5) 
1 - X**7/FACTOR(7) 

END 


INTEGER FUNCTION FACTOR(N) 
FACTOR = 1 
DO 10 I=N, 1, -1 
10 FACTOR = FACTOR * I 

END 


Figure 8-2 

Multiple Function Name Usage 
(Notes are discussed in the text.) 
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The following comments elaborate on the notes contained in Figure 8-2. 

Note Comment 

1. An arithmetic statement function named SIN is defined in 
terms of the generic function name COS. Since the argument 
of COS is double precision, the double precision cosine 
function will be evaluated. 

2. The arithmetic statement function SIN is called. 

3. The name SIN is declared external so that the single 

precision processor-defined sine function may be passed as an 
actual argument at note 5. 

4. The generic function name SIN is used to reference the double 
precision sine function. 

5. The single precision processor-defined sine function is used 

as an actual argument. 

6. The name SIN is declared a user-defined function name. 

7. The type of SIN is declared to be double precision. 

8. The single precision sine function passed at note 5 is 

evaluated. 

9. The user-defined SIN function is evaluated. 

10. The user-defined SIN function is defined as a simple Taylor 

series using a user-defined function FACTOR to compute the 
fac torial func tion. 
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CHARACTER SETS 


A. 1 FORTRAN CHARACTER SET 

The FORTRAN character set consists of: 

1. The letters A through Z and a through z 

2. The numerals 0 through 9 

3. The following special characters: 


Charac ter 

Name 

A 

Space or Blank or Tab 

= 

Equals 

+ 

Plus 

- 

Minus 

* 

Asterisk 

/ 

Slash 

( 

Left Parenthesis 

) 

Right Parenthesis 

t 

Comma 

• 

Decimal Point 

i 

Apostrophe 

ii 

Double Quote 

$ 

Dollar Sign 


Colon 

■■■■■■■■■■■■ 

< 

Left Angle Bracket 

> 

Right Angle Bracket 
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Other printable characters may appear in a FORTRAN statement only as 
part of a Hollerith constant or alphanumeric literal. Any printable 
character may appear in a comment. 


A. 2 ASCII CHARACTER SET 


Decimal 

Value 

ASCII 

Char¬ 
acter Usage 

Decimal 

Value 

ASCII 

Char¬ 

acter 

Usage 

Decimal 

Value 

ASCII 

Char¬ 
acter Usage 

0 

NUL FILL character 

43 

+ 


86 

V 

1 

SOH 

44 

• COMMA 

87 

W 

2 

STX 

45 

- 


88 

X 

3 

ETX CTRL/C 

46 

. 


89 

Y 

4 

EOT 

47 

/ 


90 

Z 

5 

ENQ 

48 

0 


91 

[ 

6 

ACK 

49 

1 


92 

\ Backslash 

7 

BEL BELL 

50 

2 


93 

] 

8 

BS 

51 

3 


94 

A or t 

9 

HT HORIZONTAL TAB 

52 

4 


95 

or «- 

10 

LF LINE FEED 

53 

5 


96 

v Grave accent 

11 

VT VERTICAL TAB 

54 

6 


97 

a 

12 

FF FORM FEED 

55 

7 


98 

b 

13 

CR CARRIAGE RETURN 

56 

8 


99 

c 

14 

SO 

57 

9 


100 

d 

15 

SI CTRL/O 

58 

: 


101 

e 

16 

DLE 

59 

} 


102 

f 

17 

DC1 

60 

< 


103 

g 

18 

DC 2 

61 

= 


104 

h 

19 

DC 3 

62 

> 


105 

i 

20 

DC 4 

63 

? 


106 

j 

21 

NAK CTRL/U 

64 

@ 


107 

k 

22 

SYN 

65 

A 


108 

1 

23 

ETB 

66 

B 


109 

m 

24 

CAN 

67 

C 


110 

n 

25 

EM 

68 

D 


111 

o 

26 

SUB CTRL/Z 

69 

E 


112 

P 

27 

ESC ESCAPE 1 

70 

F 


113 

q 

28 

FS 

71 

G 


114 

r 

29 

GS 

72 

H 


115 

s 

30 

RS 

73 

I 


116 

t 

31 

US 

74 

J 


117 

u 

32 

SP SPACE 

75 

K 


118 

V 

33 

! 

76 

L 


119 

w 

34 

ii 

77 

M 


120 

X 

35 

# 

78 

N 


121 

y 

36 

$ 

79 

0 


122 

z 

37 

% 

80 

P 


123 

{ 

38 

& 

81 

Q 


124 

I Vertical Line 

39 

' APOSTROPHE 

82 

R 


125 

} 

40 

( 

83 

S 


126 

Tilde 

41 

) 

84 

T 


127 

DEL RUBOUT 

42 

* 

85 

U 




1 ALTMODE (ASCII 125) or PREFIX (ASCII 1 

26) keys which appear on some terminals are 

translated internally into ESCAPE. 
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A. 3 RADIX-50 CHARACTER SET 

Radix-50 is a special character data representation in which up to 
three characters from the Radix-50 character set (a subset of the 
ASCII character set) can be encoded and packed into a single PDP-11 
storage word. 

The Radix-50 characters and their corresponding code values are as 
follows: 


Character 

Space 
A - Z 
$ 

(Unassigned) 

0-9 


ASCII Octal 
Equivalent 

40 

101 - 132 
44 
56 

60 - 71 


Radix-50 Value 
(Octal) 

0 

1-32 

33 

34 

35 

36 - 47 


Radix-50 values are stored, up to three characters per word, by 
packing them into single numeric values according to the formula: 

((i * 50 + j) * 50 + k) 

where "i", "j", and "k" represent the code values of three Radix-50 
characters. 


The maximum Radix-50 value is, thus, 

47*50*50 + 47*50 + 47 = 174777 

The following table provides a convenient means of translating between 
the ASCII character set and its Radix-50 equivalents. For example, 
given the ASCII string X2B, the Radix-50 equivalent is (arithmetic is 
performed in octal): 

X = 113000 
2 = 002400 

B = 000002 

X2B = 115402 
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Radix-50 Character/Position Table 


Single 

or 

First 

Char . 

Char . 

Second 

Character 

Third 

Character 

Space 

000000 

Space 

000000 

Space 

000000 

A 

003100 

A 

000050 

A 

000001 

B 

006200 

B 

000120 

B 

000002 

C 

011300 

C 

000170 

C 

000003 

D 

014400 

D 

000240 

D 

000004 

E 

017500 

E 

000310 

E 

000005 

F 

022600 

F 

000360 

F 

000006 

G 

025700 

G 

000430 

G 

000007 

H 

031000 

H 

000500 

H 

000010 

I 

034100 

I 

000550 

I 

000011 

J 

037200 

J 

000620 

J 

000012 

K 

042300 

K 

000670 

K 

000013 

L 

045400 

L 

000740 

L 

000014 

M 

050500 

M 

001010 

M 

000015 

N 

053600 

N 

001060 

N 

000016 

0 

056700 

0 

001130 

0 

000017 

P 

062000 

P 

001200 

P 

000020 

Q 

065100 

Q 

001250 

Q 

000021 

R 

070200 

R 

001320 

R 

000022 

S 

073300 

S 

001370 

S 

000023 

T 

076400 

T 

001440 

T 

000024 

U 

101500 

U 

001510 

U 

000025 

V 

104600 

V 

001560 

V 

000026 

w 

107700 

W 

001630 

W 

000027 

X 

113000 

X 

001700 

X 

000030 

Y 

116100 

Y 

001750 

Y 

000031 

Z 

121200 

Z 

002020 

Z 

000032 

$ 

124300 

$ 

002070 

$ 

000033 

# 

127400 


002140 

. 

000034 

UNUSED 

132500 

UNUSED 

002210 

UNUSED 

000035 

0 

135600 

0 

002260 

0 

000036 

1 

140700 

1 

002330 

1 

000037 

2 

144000 

2 

002400 

2 

000040 

3 

147100 

3 

002450 

3 

000041 

4 

152200 

4 

002520 

4 

000042 

5 

155300 

5 

002570 

5 

000043 

6 

160400 

6 

002640 

6 

000044 

7 

163500 

7 

002710 

7 

000045 

8 

166600 

8 

002760 

8 

000046 

9 

171700 

9 

003030 

9 

000047 





* 
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APPENDIX B 

FORTRAN LANGUAGE SUMMARY 


B.1 EXPRESSION OPERATORS 

Operators in each type are shown in order of descending precedence, 


Type 

Operator 

Operates Upon 

Arithmetic 

** 

exponentiation 

arithmetic or logical 


*,/ 

multiplication, 

constants, 



division 

variables, and 


+#- 

addition, subtraction 
unary plus and minus 

expressions 

Relational 

.GT. 

greater than 

arithmetic or logical 


.GE. 

greater than or 

constants, variables. 



equal to 

and expressions 


.LT. 

less than 

(all 


.LE. 

less than or 

relational operators 



equal to 

have equal priority) 


.EQ. 

equal to 



.NE. 

not equal to 


Logical 

.NOT. 

.NOT.A is true if and 

logical or integer 



only if A is false 

constants, variables, 
and expressions 


.AND. 

A.AND.B is true if 
and only if A and B 
are both true 



.OR. 

A.OR.B is true if and 
only if either A or 

B or both are true 



. EQV. 

A.EQV.B is true if and 

(precedence same 



only if A and B 
are both true or A 

as .XOR.) 



and B are both false. 



. XOR. 

A.XOR.B is true if and 

(precedence same 



only if A is true and 

B is false or B is 
true and A is false. 

as .EQV.) 
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B. 2 STATEMENTS 

The following summary of statements available in the PDP-11 FORTRAN 
language defines the general format for the statement. If more 
detailed information is needed, the reader is referred to the 
Section(s) in the manual dealing with that particular statement. 


Statement 

Formats 

Effect 

Manual 

Section 


ACCEPT 

See 

READ, Formatted Sequential 

5.4.3 

* 


See 

READ, List-Directed 

5.7.3 

% 

Arithmetic/Logical 

Assignment 

3.1 




3.2 




v is a variable name or an array element name. 


e is an expression. 

The value of the arithmetic or logical 
expression is assigned to the variable. 


Arithmetic Statement Function 
f ([p[rp]...])=e 

f is a symbolic name, 
p is a symbolic name, 
e is an expression. 


8 . 2 . 


1 



Creates a user-defined function having 
the variables p as dummy arguments. 
When referenced, the expression is 
evaluated using the actual arguments in 
the function call. 


ASSIGN s TO v 3.3 

s is an executable statement label. 

v is an integer variable name. 

Associate the statement number s with 
the integer variable v for later use in 
an assigned GO TO statement. 


» 
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BACKSPACE u 5.9,2 

u is an integer variable or constant. 

The currently open file on logical unit 
u is backspaced one record. 


BLOCK DATA [nam] 8.2.5 

nam is a symbolic name. 

Specifies the subprogram which follows 
as a BLOCK DATA subprogram. 


CALL s[([a] [, [a]]...)] 4.5 

s is a subprogram name. 

a is an expression, a procedure name, or an array name. 

Calls the SUBROUTINE subprogram with the 
name specified by s, passing the actual 
arguments a to replace the dummy 
arguments in the SUBROUTINE definition. 


CLOSE (p[,p]...) 


5.9.7 

p is one of 

the following forms: 


UNIT * e 
DISPOSE * 

•SAVE' 


DISPOSE = 

'DELETE' 


DISPOSE * 
ERR = s 

'PRINT' 


e is a numeric expression 


s is an executable statement label 





Closes 

the specified file. 






COMMON [/[cb]/] nlist [[,]/[cb]/nlist]... 7.4 

cb is a common block name. 

nlist is a list of one or more variable names, array names, or 
array declarators separated by commas. 

Reserves one or more blocks of storage 
space under the name specified to 
contain the variables associated with 
that block name. 
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CONTINUE 


4.4 


Causes no processing. 


DATA nlist/clist/[[,] nlist/clist/]... 7.7 

nlist is a list of one or more variable names, array names, or 
array element names separated by commas. Subscript 
expressions must be constant. 

clist is a list of one or more constants separated by commas, 
each optionally preceded by j*, where j is a nonzero, 
unsigned integer constant. 

Causes elements in the list of values to 
be initially stored in the corresponding 
elements of the list of variable names. 


DECODE (c,f,b[,ERR=s]) [list] 


5.10 


c is an integer expression. 

f is a FORMAT statement label or array name, 

b is a variable name, array name, or array element name, 

s is an executable statement label, 

list is an I/O list. 


Changes the elements in the I/O list 
from character into internal format? c 
specifies the number of characters, f 
specifies the format, and b is the name 
of the entity containing the characters 
to be converted. 


DEFINE FILE u(m,n,U,v)[,u(m,n,U,v)]... 

u is an integer variable name or 

m is an integer variable name or 


integer constant, 
integer constant. 


5.9.4 


n 

v 


is an integer variable name or integer constant, 
is an integer variable name. 


Defines the record structure of a 
direct access file where u is the 
logical unit number, m is the number of 
fixed length records in the file, n is 
the length in words of a single record, 
U is a fixed argument, and v is the 
associated variable. 
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DIMENSION a(d) [,a(d)]... 7.3 

a(d) is an array declarator. 

Specifies storage space requirements for 
arrays. 




DO s [.] i = el.e2f.e3] 4.3 

s is the label of an executable statement, 

i is a variable name. 


ei are integer expressions. 

To execute the DO loop: 

1. Set i = el 

2. Execute statements through 
statement number s 

3. Evaluate i = i+e3 

4. Repeat 2 through 3 for 

MAX (1. INT((e2 - el)/e3) + 1) 
iterations 

ENCODE (c.f.b[.ERR=s])[list] 5.10 


c is an integer expression. 

f is a FORMAT statement label or an array name, 

b is a variable name, array name, or array element name, 

s is an executable statement label. 


list is an I/O list. 

Changes the elements in the list of 
variables into characters? c specifies 
the number of characters in the buffer, 
f specifies the format statement number, 
and b is the name of the entity to be 
used as a buffer. 


END 

Delimits a program unit. 

END FILE u 

u is an integer variable or constant. 

An end-file record is written on logical 
unit u. 


4.9 


5.9.3 
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END=s,ERR=s 5.8 

s is an executable statement label. 

(Transfer of Control) on end-of-file or 
error condition is an optional element 
in each type of I/O statement allowing 
the program to transfer to statement 
number s on an end-of-file (END=) or 
error (ERR=) condition. 





ENTRY nam 

[(£p[ -p]...])] 

8.2.4 

nam 

is a subprogram name. 


P 

is a symbolic name. 



Defines an alternate entry point within 
a SUBROUTINE or FUNCTION subprogram. 


EQUIVALENCE 

(nlist) [ , (nlist)]... 

7.5 

nl ist 

is a list of two or more variable names, array 
array element names separated by commas, 
expressions must be constant. 

names, or 
Subscript 


Each of the names (nlist) within a set 
of parentheses is assigned the same 
storage location. 


EXTERNAL v[ 

fV] . . . 

7.6 

V 

is a subprogram name. 



Defines the names specified as FUNCTION 
or SUBROUTINE subprograms. 


EXTERNAL [* 

]v[,[*]v]... 

7.6 

V 

is a subprogram name. 



Defines the names specified as 

user-defined subprograms. 
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FIND (u'r) 5.9.5 


u 

is an integer variable name or integer constant. 

r 

is an integer expression. 

Positions the file on logical unit u to 
record r and sets associated variable to 
record number r. 


FORMAT (field specification,...) 6.1 - 6.8 

Describes the format in which one or 
more records are to be transmitted; a 
statement label must be present. 

[typ] FUNCTION nam[*n][([p[,p]...])] 8.2.2 


typ 

is a data type specifier. 

nam 

is a symbolic name. 

*n 

is a data type length specifier. 

P 

is a symbolic name. 

Begins a FUNCTION subprogram, indicating 
the program name and any dummy argument 
names, p. An optional type 
specification can be included. 


GO TO s 

4.1.1 

s 

is an executable statement label. 

(Unconditional GO TO) Transfers control 
to statement number s. 

GO TO (slist) 

•[,] e 4.1.2 

slist 

is a list of one or more executable statement labels 
separated by commas. 

e 

is an integer expression. 

(Computed GO TO) Transfers control to 
the statement label specified by the 
value of expression e. (If e=l control 
transfers to the first statement label. 

If e=2 it transfers to the second 
statement label. etc.) If e is less 
than 1 or greater than the number of 
statement labels present, no transfer 
takes place. 
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GO TO v [[,](slist)] 

v is an integer variable name. 


4.1. 


3 



slist is a list of one or more executable statement labels 
separated by commas. 

(Assigned GO TO) Transfers control to 
the statement most recently associated 
with v by an ASSIGN statement. 


IF (e) si,s 2,s 3 


4.2.1 


e 

si 


is an expression. 

are executable statement labels. 

(Arithmetic IF) Transfers control to 
statement number si depending upon the 
value of the expression. If the value 
of the expression is less than zero, 
transfer to si? if the value of the 
expression is equal to zero, transfer to 
s2? if the value of the expression is 
greater than zero, transfer to s3. 


IF (e) st 

e is an expression. 


4.2. 


2 



st is any executable statement except a DO or logical IF 

statement. 

(Logical IF) Executes the statement if 
the logical expression is true. 


IMPLICIT typ (a [,a]...) [,typ (a [,a]...)]... 7.1 

typ is a data type specifier. 

a is either a single letter, or two letters in alphabetical 

order separated by a dash (i.e., x-y) . 

The elements a represent single (or a 
range of) letter (s) whose presence as 
the initial letter of a variable 
specifies the variable to be of that 
type. 



t 





B-8 



FORTRAN LANGUAGE SUMMARY 


INCLUDE fin 
fin 


OPEN (p[,p] 
P 



PARAMETER p 
P 


c 


1 . 

is an alphanumeric literal. 

Includes the source statements in the compilation 
the file specified by fin. 




5.9 


is one of the following forms: 
UNIT = e 
NAME = n 
TYPE = * OLD ' 

TYPE = 1 NEW* 

TYPE = 'SCRATCH 1 
TYPE = 'UNKNOWN' 

ACCESS = 'SEQUENTIAL' 

ACCESS = 'DIRECT' 

ACCESS * 'APPEND* 

READONLY 

FORM = 'FORMATTED' 

FORM = 'UNFORMATTED' 

RECORDSIZE = e 
ERR = s 

BUFFERCOUNT * e 
INITIALSIZE « e 
EXTENDSIZE = e 
NOSPANBLOCKS 
SHARED 

DISPOSE * 'SAVE' 

DISPOSE = 'DELETE' 

DISPOSE = 'PRINT* 

ASSOCIATEVARIABLE = v 
CARRIAGECONTROL = 'FORTRAN' 
CARRIAGECONTROL * 'LIST' 
CARRIAGECONTROL = 'NONE' 

MAXREC * e 
BLOCKSIZE = e 


e is an integer expression, 
s is an executable statement label, 
v is an integer variable name. 

n is an array name, variable name, array element name 
alphanumeric literal. 

Opens a file on the specified logical 
unit according to the parameters 
specified by the keywords. 


c [,p=c]... 7.8 

is a symbolic name, 
is a constant. 

Defines a symbolic name for a constant. 


from 


.6 


, or 
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FORTRAN LANGUAGE SUMMARY 


PAUSE [disp] 


4.7 

disp 

is a decimal digit string containing one to five 
an alphanumeric literal , or an octal constant. 

digits / 


Suspends program execution and prints 
the display f if one is specified. 


PRINT 

See WRITE, Formatted Sequential 

See WRITE/ List-Directed 

5.4.5 

5.7.5 

PROGRAM nam 


7.9 

nam 

is a symbolic name. 



Specifies a name for the main program. 


READ (u,f[ ,END=s] [ ,ERR=s]) [list] 

5.4.1 

READ f[ ,1ist] 



ACCEPT f[ ,list] 


u 

is an integer variable or constant. 


f 

is a FORMAT statement label or an array name. 


s 

is an executable statement label. 


list 

is an I/O list. 



(Formatted Sequential) Reads one or more 
logical records from unit u and assigns 
values to the elements in the list/ 
converted according to format 
specification f. 


READ (u , r,f[ ( 

ERR=s])[list] 

5.6.1 

u 

is an integer variable or constant. —' 


r 

is an integer expression. 


f 

is a FORMAT statement label or an array name* 


s 

is an executable statement label. 


list 

is an I/O list. 



(Formatted Direct Access) Reads record r from unit u 
and assigns values to the elements in the list, 
converted according to format specification f. 
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READ( U [,END= 

=s][,ERR=s])[list] 5.3.1 

U 

is an integer variable or constant. 

S 

is an executable statement label. 

list 

is an I/O list. 

(Unformatted Sequential) Reads one 

unformatted record from unit u, and 
assigns values to the elements in the 
list. 


READ(u'r[,ERR=s])[list] 5.5.1 


u 

is an integer variable or constant. 

r 

is an integer expression. 

s 

is an executable statement label. 

list 

is an I/O list. 

(Unformatted Direct Access) Reads record 
r from unit u, and assigns values to the 
elements in the list. 


READ (u,*[,END=s][,ERR=s])list 5.7.1 

READ * ,list 
ACCEPT *,list 


u 

is an integer variable or constant. 

* 

denotes list-directed formatting. 

s 

is an executable statement label. 

list 

is an I/O list. 

(List-Directed) Reads one or more 
logical records from unit u and assigns 
values to the elements in the list, 
converted according to the data type of 
the list element. 
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FORTRAN LANGUAGE SUMMARY 


RETURN 4.6 



Returns control to the calling program 
from the current subprogram. 

REWIND u 

5.9.1 

U 

is an integer variable or constant. 

Repositions logical unit u to the 

beginning of the currently opened file. 


STOP [disp] 4.8 


disp 

is a decimal digit string containing one to five digits, 
an alphanumeric literal, or an octal constant. 

Terminate program execution and print 
the display, if one is specified. 

SUBROUTINE 

nam [([p[,p]...])] 8.2.3 

nam 

is a symbolic name. 

P 

is a symbolic name. 

Begins a SUBROUTINE subprogram, 
indicating the program name and any 
dummy argument names, p. 

TYPE 

See WRITE, Formatted Sequential 5.4.4 

See WRITE, List-Directed 5.7.4 


Type Declaration 7.2 

typ v[ ,v]... 


typ 

is a data type specifier. 

V 

is a variable name, array name, function or function 
entry name, or an array declarator. The name can 

optionally be followed by a data type length specifier 
(*n) . 

The symbolic names, v, are assigned the 
specified data type in the program unit. 

typ is one of: 

DOUBLE PRECISION 

COMPLEX 

C0MPLEX*8 

REAL 


B-12 




FORTRAN LANGUAGE SUMMARY 



* 

* 


REALM 

REALM 

INTEGER 

INTEGERS 

INTEGERM 

BYTE 

LOGICAL 

LOGICAL*1 

LOGICALM 


LOGICAL*2 


C 

G 


WRITE (u,f[,ERR=s])[list] 
PRINT f[ ,list] 

TYPE f[,1ist] 


u is an integer variable or constant. 

f is a FORMAT statement label or an array name. 

s is an executable statement label. 

list is an I/O list. 

(Formatted Sequential) Writes one or 
more logical records to unit u 
containing the values of the elements in 
the list, converted according to format 
specification f. 


5.4.2 


WRITE (u 1 

1 r ,f [ ,ERR=s])[list] 

5.6.2 

u 

is an integer variable or constant. 


r 

is an integer expression. 


f 

is a FORMAT statement label or an array name. 


s 

is an executable statement label. 


list 

is an I/O list. 



(Formatted Direct Access) Writes record 
r to unit u containing the values of the 
elements in the list, converted 
according to format specification f. 
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WRITE (u[,ERR=s]) [list] 5.3.2 

u is an integer variable or constant. 

s is an executable statement label. 

list is an I/O list. 

(Unformatted Sequential) Writes one 
unformatted record to unit u containing 
the values of the elements in the list. 


WRITE (u 1 r[,ERR=s]) [list] 5.5.2 

u is an integer variable or constant. 

r is an integer expression. 

s is an executable statement label. 

list is an I/O list. 

(Unformatted Direct Access) Writes 
record r to unit u containing the values 
of the elements in the list. 


WRITE(u,*[,ERR=s] ) list 
PRINT *,list 
TYPE * f list 


u 

* 

s 

list 


is an integer variable or constant, 
denotes list-directed formatting, 
is an executable statement label, 
is an I/O list. 


(List-Directed) Writes one or more 
logical records to unit u containing the 
values of the elements in the list, 
converted according to the data type of 
the list element. 
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Table B-l 

FORTRAN Library Functions 




ARGUMENT 

RESULT 

FORM 

DEFINITION 

TYPE 

TYPE 

ABS(X) 

Real absolute value 

Real 

Real 

IABS(I) 

Integer absolute value 

Integer 

Integer 

DABS(X) 

Double precision absolute value 

Double 

Double 

CABS (Z) 

Complex to Real, absolute value 




where Z=(x,y) 

CABS(Z)=(x 2 +y 2 ) 1 / 2 

Complex 

Real 

FLOAT(I) 

Integer to Real conversion 

Integer 

Real 

IFIX(X) 

Real to Integer conversion 




IFIX(X) is equivalent to INT(X) 

Real 

Integer 

SNGL(X) 

Double to Real conversion 

Double 

Real 

DBLE(X) 

Real to Double conversion 

Real 

Double 

REAL(Z) 

Complex to Real conversion, 




obtain real part 

Complex 

Real 

AIMAG(Z) 

Complex to Real conversion, 




obtain imaginary part 

Complex 

Real 

CMPLX(X,Y) 

Real to Complex conversion 




CMPLX(X,Y)=X+i*Y 

Real 

Complex 


Truncation functions return the sign of 
the argument * largest integer < |arg| 



AINT(X) 

Real to Real truncation 

Real 

Real 

INT(X) 

Real to Integer truncation 

Real 

Integer 

IDINT(X) 

Double to Integer truncation 

Double 

Integer 


Remainder functions return the remainder 
when the first argument is divided by 
the second. 



AMOD(X,Y) 

Real remainder 

Real 

Real 

MOD(I,J) 

Integer remainder 

Integer 

Integer 

DMOD(X,Y) 

Double precision remainder 

Double 

Double 


Maximum value functions return the 
largest value from among the argument 
list? > 2 arguments. 



AMAX0(I,J,... 

) Real maximum from Integer list 

Integer 

Real 

AMAXl(X,Y,... 

) Real maximum from Real list 

Real 

Real 

MAX0 (I, J,...) 

Integer maximum from Integer list 

Integer 

Integer 

MAXI(X,Y,...) 

Integer maximum from Real list 

Real 

Integer 

DMAX1(X,Y,... 

) Double maximum from Double list 

Double 

Double 


Minimum value functions return the small¬ 
est value from among the argument list; 

> 2 arguments. 



AMIN0(I,J,... 

) Real minimum of Integer list 

Integer 

Real 

AMINl (X, Y, ... 

) Real minimum of Real list 

Real 

Real 

MIN0(I,J,...) 

Integer minimum of Integer list 

Integer 

Integer 

MINI(X/Y,...) 

Integer minimum of Real list 

Real 

Integer 

DMINl (X, Y ,... 

) Double minimum of Double list 

Double 

Double 
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Table B-l (Cont.) 
FORTRAN Library Functions 




ARGUMENT 

RESULT 

FORM 

DEFINITION 

TYPE 

TYPE 


The transfer of sign functions return 
(sign of the second argument) * (absolute 
value of first argument). 



SIGN(X,Y) 

Real transfer of sign 

Real 

Real 

ISIGN(I,J) 

Integer transfer of sign 

Integer 

Integer 

DSIGN(X,Y) 

Double precision transfer of sign 

Double 

Double 


Positive difference functions return the 
first argument minus the minimum of the 
two arguments. 



DIM(X,Y) 

Real positive difference 

Real 

Real 

IDIM(I,J) 

Integer positive difference 

Integer 

Integer 


Exponential functions return the value 
of e raised to the argument power. 



EXP (X) 

X 

e 

Real 

Real 

DEXP(X) 

e 

Double 

Double 

CEXP(Z) 

e 

Complex 

Complex 

ALOG(X) 

Returns log (X) 

Real 

Real 

ALOG10(X) 

Returns logi 0 (X) 

Real 

Real 

DLOG(X) 

Returns log e (X) 

Double 

Double 

DLOG10(X) 

Returns log 1 0 (X) 

Double 

Double 

CLOG (Z) 

Returns log e of complex argument 

Complex 

Complex 

SQRT(X) 

Square root of Real argument 

Real 

Real 

DSQRT(X) 

Square root of Double precision argument 

Double 

Double 

CSQRT(Z) 

Square root of Complex argument 

Complex 

Complex 

SIN(X) 

Real sine 

Real 

Real 

DSIN(X) 

Double precision sine 

Double 

Double 

CSIN(Z) 

Complex sine 

Complex 

Complex 

COS(X) 

Real cosine 

Real 

Real 

DCOS (X) 

Double precision cosine 

Double 

Double 

CCOS(Z) 

Complex cosine 

Complex 

Complex 

TANH(X) 

Hyperbolic tangent 

Real 

Real 

ATAN(X) 

Real arc tangent 

Real 

Real 

DATAN(X) 

Double precision arc tangent 

Double 

Double 

ATAN2(X, Y) 

Real arc tangent of (X/Y) 

Real 

Real 

DATAN2(X,Y) 

Double precision arc tangent of (X/Y) 

Double 

Double 

CONJG(Z) 

Complex conjugate, if Z=X+i*Y 




CONJG (Z) =X- i * Y 

Complex 

Complex 

RAN (I, J) 

Returns a random number of uniform distri¬ 
bution over the range 0 to 1. I and J must 
be integer variables and should be set ini¬ 
tially to 0. Resetting I and J to 0 re¬ 
generates the random number sequence. 
Alternate starting values for I and J will 
generate different random number sequences. 
See also Appendix C.3. 

Integer 

Real 
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B.3 LIBRARY FUNCTIONS 

Table B-2 
FORTRAN IV-PLUS 

Generic and Processor-Defined Functions 


Function 

Definition 

Number of 

Generic 

Type of 

Type of 

PDF 

Internal 



Arguments 

Name 

Argument(s) 

Result 

Name 

Name 

Absolute 

M 

1 

ABS 

Real 

Real 

ABS 

$ABS 

Value 




Double 

Double 

DABS 

$DABS 





Complex 

Real 

CABS 

$CABS 





Integer-2 

Integer-2 

I IABS 

$IABS 





Integer-4 

Integer-4 

JIABS 

$JABS 




IABS 

Integer-2 

Integer-2 

I IABS 

$IABS 





Integer-4 

Integer-4 

JIABS 

$JABS 

Cosine 

Cos a 

1 

COS 

Real 

Real 

COS 

$COS 





Double 

Double 

DCOS 

$DCOS 





Complex 

Complex 

CCOS 

$CCOS 

Exponential 

e a 

1 

EXP 

Real 

Real 

EXP 

$EXP 





Double 

Double 

DEXP 

$DEXP 





Complex 

Complex 

CEXP 

$CEXP 

Natural 

log a 

1 

LOG 

Real 

Real 

ALOG 

$ALOG 

Logarithm 

e 



Double 

Double 

DLOG 

$DLOG 





Complex 

Complex 

CLOG 

$CLOG 

Common 

log io a 

1 

LOG 10 

Real 

Real 

ALOG10 

$ALG10 

Logarithm 



Double 

Double 

DLOG10 

$DLG10 

Sine 

Sin a 

1 

SIN 

Real 

Real 

SIN 

$SIN 





Double 

Double 

DSIN 

$DSIN 





Complex 

Complex 

CSIN 

$CSIN 

Square 

a 1/2 

1 

SQRT 

Real 

Real 

SQRT 

$SQRT 

Root 




Double 

Double 

DSQRT 

$DSQRT 





Complex 

Complex 

CSQRT 

$CSQRT 

Tangent 

Tan a 

1 

TAN 

Real 

Real 

TAN 

$TAN 





Double 

Double 

DTAN 

$DTAN 

Arc Cosine 

Arc Cos a 

1 

ACOS 

Real 

Real 

ACOS 

$ACOS 





Double 

Double 

DACOS 

$DACOS 

Arc Sine 

Arc Sin a 

1 

AS IN 

Real 

Real 

ASIN 

$ASIN 





Double 

Double 

DAS IN 

$DASIN 

Arc Tangent 

Arc Tan a 

1 

ATAN 

Real 

Real 

ATAN 

$ATAN 





Double 

Double 

DATAN 

$ DATAN 


Arc Tan a./a^ 

2 

AT AN 2 

Real 

Real 

ATAN 2 

$ATAN2 


1 <£ 



Double 

Double 

DATAN2 

$DATN2 

Hyperbolic 

Cosh a 

1 

COSH 

Real 

Real 

COSH 

$COSH 

Cosine 




Double 

Double 

DCOSH 

$DCOSH 

Hyperbolic 

Sinh a 

1 

SINH 

Real 

Real 

SINH 

$SINH 

Sine 




Double 

Double 

DSINH 

$DSINH 

Hyperbolic 

Tanh a 

1 

TANH 

Real 

Real 

TANH 

$TANH 

Tangent 




Double 

Double 

DTANH 

$DTANH 
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Table B-2 (Cont.) 

FORTRAN IV-PLUS 

Generic and Processor-Defined Functions 


Function 

Definition 

Number of 

Generic 

Type of 

Type of 

PDF 

Internal 



Arguments 

Name 

Argument(s) 

Result 

Name 

Name 

Maximum 

max(a ,a_..*a ) 
l z n 

n 

MAX 

Integer-2 

Integer-2 

IMAX0 

$MAX0 




Integer-4 

Integer-4 

JMAX0 

$JMAX0 





Real 

Real 

AMAXl 

$AMAXl 





Double 

Double 

DMAXl 

$DMAX1 




MAX0 

Integer-2 

Integer-2 

IMAX0 

$MAX0 





Integer-4 

Integer-4 

JMAX0 

$JMAX0 




MAXI* 

Real 

Integer-2 

IMAX1 

$MAX1 





Real 

Integer-4 

JMAX1 

$JMAXl 




AMAX0 

Integer-2 

Real 

AIMAX0 

$AMAX0 





Integer-4 

Real 

AJMAX0 

$AJMX0 

Minimum 

min(a t a 0 ...a ) 

1 2 n 

n 

MIN 

Integer-2 

Integer-2 

IMIN0 

$MIN0 




Integer-4 

Integer-4 

JMIN0 

$JMIN0 





Real 

Real 

AMIN1 

$AMIN1 





Double 

Double 

DMIN1 

$DMIN1 




MIN0 

Integer-2 

Integer-2 

IMIN0 

$MIN0 





Integer-4 

Integer-4 

JMIN0 

$JMIN0 




MINI* 

Real 

Integer-2 

IMIN1 

$MIN1 





Real 

Integer-4 

JMINl 

$JMINl 




AMIN0 

Integer-2 

Real 

AIMIN0 

$AMIN0 





Integer-4 

Real 

AJMIN0 

$AJMN0 

Truncation 

[a] 

1 

INT* 

Real 

Integer-2 

I INT 

$INT 





Real 

Integer-4 

JINT 

$JNT 





Double 

Integer-2 

IIDINT 

$IDINT 





Double 

Integer-4 

JIDINT 

$JDINT 




IDINT* 

Double 

Integer-2 

IIDINT 

$IDINT 





Double 

Integer-4 

JIDINT 

$JDINT 




AINT 

Real 

Real 

AINT 

$AINT 





Double 

Double 

DINT 

$DINT 

Nearest 

[a+.5*Sign(a)3 

1 

NINT* 

Real 

Integer-2 

ININT 

$NINT 

Integer 




Real 

Integer-4 

JNINT 

$NJNT 





Double 

Integer-2 

IIDNNT 

$IDNNT 





Double 

Integer-4 

JIDNNT 

$JDNNT 




IDNINT* 

Double 

Integer-2 

IIDNNT 

$IDNNT 





Double 

Integer-4 

JIDNNT 

$JDNNT 




ANINT 

Real 

Real 

ANINT 

$ANINT 





Double 

Double 

DNINT 

$DNINT 


* * Result Generic 



* 


* 
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Table B-2 (Cont.) 

FORTRAN-IV PLUS 

Generic and Processor-Defined Functions 


Function 

Definition 

Number of 

Generic 

Type of 

Type of 

PDF 

Internal 



Arguments 

Name 

Argument(s) 

Result 

Name 

Name 

Positive 

a 1 -(min(a 1 ,a 2 )) 

2 

DIM 

Integer-2 

Integer-2 

I IDIM 

$IDIM 

Difference 




Integer-4 

Integer-4 

JIDIM 

$ JDIM 





Real 

Real 

DIM 

$DIM 





Double 

Double 

DDIM 

$DDIM 




IDIM 

Integer-2 

Integer-2 

IIDIM 

$IDIM 





Integer-4 

Integer-4 

JIDIM 

$ JDIM 

Float 

Integer to 

1 

FLOAT 

Integer-2 

Real 

FLOATI 

$FLOAT 


Real 



Integer-4 

Real 

FLOATJ 

$FLOTJ 


Conversion 







Double 

Integer to 

1 

DFLOAT 

Integer-2 

Double 

DFLOTI 

$DFLTI 

Precision 

Double 



Integer-4 

Double 

DFLOTJ 

$DFLTJ 

Float 

Conversion 







Fix 

Real to 

1 

IFIX* 

Real 

Integer-2 

' IIFIX 

$IFIX 


Integer 



Real 

Integer-4 

JIFIX 

$JFIX 


Conversion 











Double 

Real 

SNGL 

$SNGL 

Conversion 


1 

SNGL 

Real 

Real 

- 

- 

to Single 




Integer-2 

Real 

FLOATI 

$FLOAT 





Integer-4 

Real 

FLOATJ 

$FLOTJ 

Conversion 


1 

DBLE 

Real 

Double 

Double - 

Double 

DBLfc 

$DBLE 

to Double 




Integer-2 

Double 

DFLOTI 

SDFLTI 





Inteaer-4 

Double 

DFLOTJ 

SDFLTJ 

Real Part 


1 


Complex 

Real 

REAL 

$REAL 

of Complex 








Imaginary 


1 


Complex 

Real 

AIMAG 

$AIMAG 

Part of 








Complex 








Complex 


2 


Real 

Complex 

CMPLX 

$CMPLX 

From two 








Reals 








Complex 


1 


Complex 

Complex 

CONJG 

$CONJG 

Conjugate 








Double 


2 


Real 

Double 

DP ROD 

$DPROD 

Product of 








Reals 








Remainder 

Remainder 

2 

MOD 

Integer-2 

Integer-2 

IMOD 

$IMOD 


when a^ 



Integer-4 

Integer-4 

JMOD 

$JMOD 


divided by 



Real 

Real 

AMOD 

$AMOD 


a 2 



Double 

Double 

DMOD 

$DMOD 

Transfer 

Sign a 2 *|a | 

2 

SIGN 

Integer-2 

Integer-2 

IISIGN 

$ISIGN 

of Sign 




Integer-4 

Integer-4 

JISIGN 

$JSIGN 





Real 

Real 

SIGN 

$SIGN 





Double 

Double 

DSIGN 

$DSIGN 




ISIGN 

Integer-2 

Integer-2 

IISIGN 

$ISIGN 





Integer-4 

Integer-4 

JSIGN 

$JSIGN 


* = Result Generic 
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Table B-2 (Cont.) 

FORTRAN IV-PLUS 

Generic and Processor-Defined Functions 


Function 

Definition 

Number of 
Arguments 

Generic 

Name 

Type of 
Argument(s) 

Type of 
Result 

PDF 

Name 

Internal 

Name 

Bitwise 

AND 


2 

I AND 

Integer-2 

Integer-4 

Integer-2 

Integer-4 

HAND 

JIAND 

$IAND 

$JAND 

Bitwise 

Inclusive 

OR 


2 

IOR 

Integer-2 

Integer-4 

Integer-2 

Integer-4 

I IOR 

JIOR 

$IOR 

$JOR 

Bitwise 

Exclusive 

OR 


2 

IEOR 

Integer-2 

Integer-4 

Integer-2 
Integer-4 

I IEOR 

JIEOR 

$IEOR 

$JEOR 

Bitwise 

Complement 


1 

NOT 

Integer-2 
Integer-4 

Integer-2 

Integer-4 

INOT 

JNOT 

$INOT 

$JNOT 

Bitwise 

Shift 

logically 

shifted left 
a^ bits 

2 

ISHFT 

Integer-2 

Integer-4 

Integer-2 
Integer-4 

IISHFT 

JISHFT 

$ISHFT 
$JSHFT 
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Notes for Table B-2 

1 . [x] is defined as the largest integer whose magnitude does not exceed the 
magnitude of x and whose sign is the same as that of x. 

2. The remaindering functions of (a^ a 2 ) are defined as a^ - [a^/a 2 ]a 2 , where 
[x] is defined in 1. above. 

3. Functions that cause conversion of an entity from one type to another type 
provide the same effect as the implied conversion in assignment statements. 
The functions SNGL with a real argument, and DBLE with a double precision 
argument, return the value of the argument without conversions. 

4. A complex value is expressed as an ordered pair of reals (ar, ai), where ar 
is the real part and ai is the imaginary part. 

5. The argument of ALOG, DLOG, ALOGIO, and DLOGIO must be greater than zero. 

The argument of CLOG must not be (0.,0.). 

6 . The argument of SIN, DSIN, COS, DCOS, TAN, and DTAN must be in radians. 

These functions use the argument modulo 2 pi. 

7. The argument of SQRT and DSQRT must be greater than or equal to zero. 

8 . The absolute value of the argument of ASIN, DASIN, ACOS, and DACOS must be 
less than or equal to one. 

9. The result of ASIN, DASIN, ACOS, DACOS, ATAN, DATAN, ATAN2, and DATAN2 is 
in radians. 

10. The result of ATAN2 and DATAN2 is zero or positive for a 2 lp and negative for 
a 1 <0. The result is undefined if both arguments are zero. 

11. The result of CSQRT is the principal value with the real part greater than 
or equal to zero. When the real part is zero, the imaginary part is greater 
than or equal to zero. 

12. The principal value is used for the results of complex functions. 


♦ 




C 
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APPENDIX C 


FORTRAN PROGRAMMING EXAMPLES 


Four examples of FORTRAN programs are given below. These examples are 
intended to show possible methods of handling input/output, iterative 
calculations, the FORTRAN Library functions, and subprogram usage in 
the context of problems likely to face a FORTRAN programmer. These 
particular programs should not be considered as the correct or optimal 
approach to the specified problems since many other methods are 
possible in each case. 

The program in example one performs linear regression on a set of X,Y 
coordinates. The program uses standard formulae to calculate the 
slope and intercept of the line which best fits the data points 
entered. The program listing and a sample run follow: 

EXAMPLE 1 LISTING: 


5 


100 


c 

c 

c 


TYPE 10 

TYPE 20 

ACCEPT 30»N 

IF <N «LE« 0> STOP 

TYPE 40 pN 

SIGMXY - 0 

SIGMX « 0 

SIGMY - 0 

8IGMXX - 0 

DO 100» J-1»N 

ACCEPT 50»X»Y 
SIGHXY - SIGMXY + X*Y 
SIGMX - SIGMX + X 
SIGMY - 8IGMY + Y 
SIGMXX - SIGMXX + X*X 

CONTINUE 

A ■ <SIGMXY-8IGMX*SIGMY/N> / <SIGMXX-SIGMX#SIGMX/N> 
B - <SIGMY-AtSIGMX>/N 
TYPE 60'A'B 
GO TO 5 

FORMAT STATEMENTS 
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10 FORMAT <//' THIS PROGRAM PERFORMS LINEAR REGRESSION'/ 

1 ' THE LINE WHICH BEST FITS A SET OF X,Y PAIRS IS CALCULATED.') 
20 FORMAT (/' TYPE IN THE NUMBER OF X»Y PAIRS! 

30 FORMAT (12) 

40 FORMAT (' TYPE IN 'tI2t' LINES OF X»Y PAIRS.'/) 

50 FORMAT (2FS.3) 

60 FORMAT </' THE BEST FIT IS Y«'»F8.3»' X»'rF8.3) 

END 
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EXAMPLE 1 SAMPLE RUN: 

MCR>RUN EXMPLlf 


THIS PROGRAM PERFORMS LINEAR REGRESSION 

THE LINE WHICH BEST FITS A SET OF XrY PAIR8 IS CALCULATED. 

TYPE IN THE NUMBER OF X*Y PAIRSI 17 
TYPE IN 17 LINES OF XrY PAIRS. 


1.1 

4.7 

2.2 

9.4 

4.1 

9.9 

5.3 

14.6 

6.7 

23.1 

8.0 

29.9 

10.1 

37.1 

11.5 

41.3 

13.6 

54.7 

15.8 

59.2 

17.9 

64.7 

19.5 

71.2 

22.3 

79.8 

23.1 

81.4 

25.3 

88.8 

26.9 

91.9 

27.3 

95.4 


THE BEST FIT IS Y* 3.537 X« 0.340 
TYPE IN THE NUMBER OF XrY PAIRSt 6 


TYPE IN 

6 LINES OF XrY PAIRS 

0.41 

-4.3 

0.99 

-7,2 

0.31 

-3.6 

0.02 

-0.7 

0,76 

-5.9 

0.43 

-4.4 


THE BEST FIT IS Y« -6.304 X- -1.282 

TYPE IN THE NUMBER OF XrY PAIR81 0 
EXMPL1 -- STOP 


The program in example two manipulates data representing test scores. 
The scores are read from the source file, placed in descending order, 
and sent to an output file. Then the absolute total and histogram of 
the test scores in each 10-point interval are output on the terminal. 
The program listing and a sample run follow: 
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EXAMPLE 


100 

103 


110 

120 


125 


126 


130 


150 


C 

C 

C 

20 

35 

40 

45 

50 


2 LISTING: 


L0GICAL*1 STARS(80) 

INTEGER ARRAY<200)»HIST(10) 

DATA STARS/80*'*'/ 

DO 100» 1-1>200 

READ< 1'20'END** 103) ARRAY(I) 

CONTINUE 

ISIZE - 1-1 

DO 120' J*1»ISIZE-i 

DO 110> K-J+l»ISIZE 

IF (ARRAY(J) »0E« ARRAY(K)> GO TO 110 
ITMP » ARRAY<J) 

ARRAY(J) - ARRAY(K) 

ARRAY<K) - ITMP 

CONTINUE 

CONTINUE 

DO 125> K»l>ISIZE 

WRITE(2»20) ARRAY(K) 

CONTINUE 
DO 126r K-1'10 

HIST(K) - 0 

CONTINUE 

DO 130' K»1'ISIZE 

N - ARRAY(K) / 10 + 1 
HI8T<N> » HIST<N) +1 

CONTINUE 
TYPE 35 

DO 150' K«10'100'10 
J - K - 10 

TYPE 40' HIST(K/10)» J' K 
IF <HIST(K/10) .EQ, 0) GO TO 150 
TYPE 45' <8TARS(M)»M«1'HIST(K/10)) 

CONTINUE 

TYPE 50» ISIZE 

STOP 

FORMAT STATEMENTS 
FORMAT <I3> 

FORMAT <//IX''THE NUMBER OF TEST SCORES AND A HISTOGRAM'/ 
1 ' IN EACH 10 POINT INTERVAL FOLLOWS)'/) 

FORMAT </lX'I3»' IN THE RANGE ''I3»' TO ''13'*) 

FORMAT <1H+'2X»80A1) 

FORMAT (//' THE TOTAL NUMBER OF TEST SCORES - '»I3> 

END 
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t 



EXAMPLE 2 SAMPLE RUN: 

MCR>RUN EXMPL2* 


THE NUMBER OF TEST SCORES AND A HISTOGRAM 
IN EACH 10 POINT INTERVAL FOLLOWS) 


mf 

1 

IN 

THE 

RANGE 

0 

TO 

10 

* 


2 

IN 

THE 

RANGE 

10 

TO 

20 

** 

0 

2 

IN 

THE 

RANGE 

20 

TO 

30 

** 


10 

IN 

THE 

RANGE 

30 

TO 

40 

********** 


13 

IN 

THE 

RANGE 

40 

TO 

50 

************* 

9 

11 

IN 

THE 

RANGE 

50 

TO 

60 

*********** 


19 

IN 

THE 

RANGE 

60 

TO 

70 

******************* 


35 

IN 

THE 

RANGE 

70 

TO 

80 

*********************************** 


40 

IN 

THE 

RANGE 

80 

TO 

90 

**************************************** 


17 

IN 

THE 

RANGE 

90 

TO 

100 

% % % % )|c # 


THE TOTAL NUMBER OF TEST SCORES - 151 
EXMPL2 — STOP 




# 


* 



Example three shows a method of calculating the prime factors of an 
integer. A simple table look-up method was used to determine the 
necessary primes. Note the unusual use of FORTRAN carriage control to 
facilitate the prime factor output. MOD is a Library function and is 
described in Appendix B. The program listing and a sample run 
follow: 

EXAMPLE 3 LISTING: 

INTEGER P'HOLD 
TYPE 50 

80 TYPE 100 

ACCEPT 105'NUMBER 
IF (NUMBER «LE» 0) STOP 

TYPE 110 

ISQRT - SORT(FLOAT(NUMBER)) 

P - i 
IFLAG - 0 
HOLD - NUMBER 

IF (HOLD »LE« 3) GO TO 240 
200 P - NPRIME(P) 

205 IREM - MOD(HOLD'P) 

IF (IREM .EQ. 0) GO TO 400 
IF (P .LE. ISQRT) GO TO 200 
IF (IFLAG .NE. 0) GO TO 300 
240 TYPE 250'NUMBER 

GO TO 80 


05 
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300 IF (HOLD .GT. i) TYPE 350*H0LD 

GO TO 80 

400 IFLAG - 1 

HOLD « HOLD/P 

IF (HOLD .EQ. 1) GO TO 500 
TYPE 450 *P 
GO TO 205 

500 TYPE 350rP 

GO TO 80 
C 

C FORMAT STATEMENTS 

C 

50 FORMAT (//IX*'THIS IS A PROGRAM TO FIND THE PRIME FACTORS OF'* 

1 ' AN INTEGER < 32767.V' ENTERING A NEGATIVE OR ZERO'* 

2 ' NUMBER TERMINATES EXECUTION.'/) 

100 FORMAT (//' ENTER * 'r*> 

105 FORMAT (15) 

110 FORMAT (/) 

250 FORMAT <1H+»I5*' IS A PRIME NUMBER') 

350 FORMAT (1H+»I5**) 

450 FORMAT (1H+*15**♦> 

END 



«» 



FUNCTION NPRIME(OLD) 
DIMENSION MPRIME<46> 
INTEGER OLD 


DATA MPRIME/2*3*5»7*11 *13*17*19*23*29*31*37*41*43*47* 

1 53*59*61*67*71*73*79*83*89*97*101*103*107*109*113* 

2 127*131*137*139*149*151*157*163*167*173*179*181* 

3 191*193*197*199/ 

IF (OLD .EQ. 1) N - C 
N » N + 1 


NPRIME 

RETURN 

END 


MPRIME(N) 


EXAMPLE 3 SAMPLE RUN: 

MCR>RUN EXMPL3* 

THIS IS A PROGRAM TO FIND THE PRIME FACTORS OF AN INTEGER < 32767. 
ENTERING A NEGATIVE OR ZERO NUMBER TERMINATES EXECUTION. 

ENTER # 3983 

7* 569 

ENTER # 32761 

181* 181 

ENTER • 32749 

32749 IS A PRIME NUMBER 





* 
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«r 


ENTER # 8192 

2 * 2 * 2 * 2 # 2 * 2 * 2 * 2 * 2 % 2 * 2 * 2 * 2 

ENTER # 32751 

3* 3* 3* 1213 

ENTER # 32767 





7* 31* 151 

ENTER * 4099 

4099 IS A PRIME NUMBER 

ENTER • 0 

EXMPL3 — STOP 


Example four demonstrates a simple way to generate random numbers in a 
given range using the FORTRAN Library function RAN. A program listing 
and sample run follow: 

EXAMPLE 4 LISTING: 




REAL MAX'MIN 
TYPE 10 
TYPE 20 
ACCEPT 30 *J 
TYPE 40 

ACCEPT 60* MIN 
TYPE 50 

ACCEPT 60* MAX 
L » 0 
M ■ 0 

DO 100* K-1*J 

X « RAN(L*M) * (MAX-MIN) + MIN 
TYPE 60* X 
WRITE <2*60) X 

100 CONTINUE 

STOP 
C 

C FORMAT STATEMENTS 

C 

10 F0RMAT(//1X*'THIS IS A PROGRAM TO GENERATE A FILE OF'* 

1 ' RANDOM #"S IN A GIVEN RANGE* V) 

20 FORMAT< IX* 'ENTER THE NUMBER OF RANDOM #"S TO GENERATE 1' »♦> 

30 FORMAT(13) 

40 FORMAT<IX*'ENTER THE MINIMUM VALUE!'**) 

50 FORMAT<IX*'ENTER THE MAXIMUM VALUE!'»*) 

60 FORMAT <F10»4) 

END 
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EXAMPLE 4 SAMPLE RUN: 

MCR>RUN EXMPL44 


THIS IS A PROGRAM TO GENERATE A FILE OF RANDOM #'S IN A GIVEN RANGE. 

ENTER THE NUMBER OF RANDOM *'8 TO GENERATE!40 
ENTER THE MINIMUM VALUE!-5.0 
ENTER THE MAXIMUM VALUE!5.0 
-4*8465 
-4.5386 
-3.6130 
-0.8307 
-2.4673 
2.6721 
-1.7612 
-4.6161 
-1.8459 
0.4690 
-0.5726 
2.3432 
-0.7876 
4.1861 
2.2046 
-4.4474 
3.4746 
0.8739 
3.9721 
-4.0326 
0.0559 
-3.3713 
-0.7312 
-4.0458 
2.3063 
0.2498 
0.7423 
2.2060 
*3.4453 
-0.5254 
-2.1446 
1.8604 
0.4644 
-3.9575 
2.0757 
-1.9288 
-0.2538 
-4.1638 
-2.6987 
1.2823 

EXMPL4 — STOP 
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A 

A field descriptor, 6-8, 6-9 
A format, 6-15 
Absolute value of integer 
constant, 2-4 

ACCEPT statement, B-2, B-10, 
B-ll 

formatted, 5-9 
list-directed, 5-17 
Acceptable input constants, 

5- 15 

ACCESS keyword, 5-23, 5-24 
Access, shared, 5-26 
Actual arguments, 2-11, 8-1, 
8-2, 8-7 

Actual arguments, associating 
dummy and, 8-1 
Actual record length, 5-25 
Addition, 2-17 

Adjustable array declarator, 
2-15 

Adjustable arrays, 2-15, 8-7 
Alignment, word boundary, 7-8 
All-blank field, 6-2, 6-4 
Allocation, 
default, 2-4 
4-byte, 2-4 

Allocating storage locations, 
7-3 

All-zero statement label, 1-6 
Alphanumeric data, trans¬ 
mission of, 6-8 
Alphanumeric literal field 
descriptor, 6-20 
Alphanumeric literals, 1-1, 
2-3, 2-8, 2-9, 5-7, 5-16, 

6 - 10 

Altering format specifications 
during program execution, 

6-18 

American National Standard 
FORTRAN X3.9-1966, 1-1 
.AND., 2-22 
Angle brackets, 6-14 
Apostrophe character, 2-8, 
5-16, 6-10 

Appended spaces, 2-9 
Area, 1-byte storage, 2-4 
Arguments, 

actual, 2-11, 8-1, 8-7 
associating dummy and 
actual, 8-1 
defined, 2-11 


Arguments, (cont.) 

dummy, 2-11, 4-10, 8-1, 8-7 
function references used as, 

7-9 

in an ENTRY statement, 
dummy, 8-6 
integer dummy, 2-16 
in the CALL statement, 4-10 
list, 4-10 
subprogram, 8-1 
actual, 8-1 
dummy, 8-1 
values, dummy, 2-15 
Arithmetic 

assignment statement, 3-1 
elements, 2-16, 2-17 
expression, 2-16, 2-20, 8-2 
express ion, “^Tata Fy peTo F~anT~ 
2-19 

IF statement, 4-4 
operators, 2-16, 2-17, B-l 
statement functions (ASF), 
2-2, 8-2, B-2 

Arithmetic/logical assignment, 
B-2 

Array, data type of an, 2-14 
Array declarator, 2-12, 7-3, 
7-5, 7-11 
adjustable, 2-15 
interaction, ENTRY and, 8-7 
Array elements, 2-1, 2-11 

assigning values to variables 
and, 7-10 
filling, 7-10 _ 

storage, LOGICAL*l, 2-14 
transmitting, 5-4 
Array format specifications, 
constructing, 6-20 
Array name, 2-12, 2-13, 7-5 
unsubscripted, 2-15, 4-10, 
7-10 

Array reference, 5-4 
Array reference, subscripted, 
2-13 

Array references without sub¬ 
scripts, 2-14 
Array size, dummy, 2-15 
Array storage, 2-13, 2-14, 
equivalence, 7-7 
Array, unsubscripted, 5-3 
Arrays, 2-1, 2-2, 2-11, 2-12, 
5-2, 6-18 

1- dimensional, 2-12 

2- dimensional, 2-12 

3- dimensional, 2-12 
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Array, 

adjustable, 2-15, 8-7 
defining, 7-2 

defining dimensions in, 7-3 
making equivalent, 7-6 
packing, 5-3 

processing multidimensional, 
5-5 

with non-unity lower bounds, 
equivalencing, 7-7 
ASCII 

characters, 2-8, 6-20 
character set, A-2 
null character, 5-24 
octal equivalents of Radix-50 
characters, A-3 

ASF (Arithmetic Statement Func¬ 
tion) , 8-2 

dummy arguments in, 8-2 
reference, 8-2 

ASSIGN statement, 3-4, 4-3, B-2 
Assigned GO TO statement, 4-3 
Assigning, 

data types, 7-2 
initial values in common 
blocks, 8-8 
LOGICAL*1 elements to 
COMMON, 7-4 

storage locations, 7-6 
values, 3-2 

values to list elements, 5-3 
values to variables and 
array elements, 7-10 
Assignment, 

arithmetic/logical, B-2 
Assignment operator, 2-9 
Assignment statements, 3-1 
arithmetic, 3-1 
conversion rules for, 3-2 
logical, 3-3 

Associated variables, 2-10, 5-21 
ASSOCIATEVARIABLE keyword, 

5- 23, 5-27 

Associating dummy and actual 
arguments, 8-1 

Asterisk (*), 1-8, 5-3, 6-3, 

6- 4, 7-9 

Attribute specifications, 5-22 
Auxiliary I/O statement, 5-2 


B 

BACKSPACE statement, 5-20, B-3 
Backspacing over list-directed 
records, 5-14 


Base elements, 2-18 

Basic component, 2-16 

Basic real constant, 2-5, 2-6 

Beginning of a record, 5-15 

Binary data, 5-1 

Binary operator, 2-9, 2-17 

Blank, 

see Space or Space character 
Blank COMMON, 7-5 
Blank common block, 7-4 
Block, blank common, 7-4 
boundaries, crossing disk, 
5-26 

common, 2-2 

see also common blocks 
data subprograms, 2-2 
name, common, 7-4 
size, physical, 5-28 
BLOCK DATA statement, 8-4, B-3 
BLOCK DATA subprogram, 8-8 
statements allowed in, 8-8 
specification statements in, 
8-8 

BLOCKSIZE keyword, 5-23, 5-28 
Blocks of storage, 7-4 
Bound, 

dimensions, 2-15 
lower, 2-12 
upper, 2-15 

Boundary alignment, word, 7-8 
Boundary, even, 7-4 
Boundary, word, 7-4 
Brackets, angle, 6-14 
left, 1-4 
right, 1-4 

BUFFERCOUNT keyword, 5-23, 5-26 

Bypassing input records, 6-16 

Byte, 2-3 

Byte strings, 2-8 

Byte, zero, 5-24 


c 

C (letter), 1-3, 1-6 
Calculations, iterative, C-l 
CALL statement, 4-9, 4-10, 7-9, 
8-1, 8-4, B-3 

CALL statement, argument in the, 
4-10 

Calling program unit, 4-10 
Carriage control, 6-21 
Carriage control character, 

6-11 

Carriage control characters, 

6-16 

table, 6-16 
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Carriage control processing, 
5-27 

CARRIAGECONTROL keyword, 5-23, 

5- 27 
Case, 

lower, x 
upper, x 
Character, 

apostrophe, 2-8 
carriage control, 6-11, 6-16 
colon (:), 6-11 
count, 2-8, 2-10 
dollar sign ($), 6-11 
first of output record, 6-21 
first record, 6-16 
form, 5-1 
position 72, 1-7 
position of the external 
record, 6-10 
printable, 1-4 
Radix-50, 2-10 
space, ix, 1-6, 2-10 
special, 1-4 
tab, ix, 1-6 
Character set, 

ASCII, A-2 
FORTRAN, 1-3, A-l 
Radix-50, A-3 
Characters, 

maximum number stored in 
variable, 6-8 
non-printing, ix 
remaining input, 6-11 
Classes of symbolic names, 2-2 
CLOSE statement, 5-28, B-3 
Code values, Radix-50, 2-10 
Coding form, FORTRAN, 1-5 
Coding forms, using FORTRAN, 
1-5 

Colon (:) character, 6-11 
Colon (:) descriptor, 6-11 
Column 

number, 2-12 
one, 1-6 

one through five, 1-6 
six, 1-7 
seven, 1-7 

seven through 72, 1-7 
seventy-two, 1-7 
Commas, 5-15, 6-16 

as a null field designator, 

6 - 21 

consecutive, 5-14 
successive, 6-18 
Comment, 1-6 
line, 1-7, 1-9 
indicator, 1-6 


Comments, 1-3 
COMMON, 

assigning LOGICAL*l elements 
to, 7-4 
blank, 7-5 

block, 2-2, 2-16, 7-4 
blank, 7-4 
extending, 7-8 
name, 7-4 

blocks, assigning initial 
values in, 8-8 
interaction, EQUIVALENCE 
and, 7-8 
named, 7-5 

referencing data in, 7-5 
statements, 2-11, 7-4, 7-5 
B-3 

Complex, 2-2, 2-3, 2-19 
constant, 2-7, 5-14 
data editing, 6-12 
expressions, 2-21 
number, 2-7 
operations, 2-20 
value, 6-12 
Complex*8, 2-3 

Components, FORTRAN statement, 
2-1 

Computed GO TO statement, 4-2 
Computing procedure, 1-3, 8-2 
Condition, 

end-of-file, 5-2 
error, 5-2 
Conditional 

control transfers, 4-4 
statement execution, 4-4 
Consecutive commas, 5-14 
Consecutive slashes, 6-16 
Conserving file storage space, 
5-6 

Constant, 2-4, 5-14 

absolute value of an integer, 
2-4 

complex, 2-7, 5-14 
double precision, 2-6 
Hollerith, 2-8 
input, 5-14 

integer, 2-4, 2-5, 2-7 
logical, 2-8, 5-14 
magnitude of a real, 2-6 
negative double precision, 
2-6 

negative integer, 2-4 
octal, 2-7 

positive integer, 2-4 
Radix-50, 2-9, 2-10 
real, 2-5 
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Constant, (Cont.) 
truncated, 2-9 
values, 7-10 
Constants, 2-1, 7-10 
acceptable input, 5-15 
data types of symbolic 
names as, 7-11 
giving symbolic names to, 

7-11 

integer, 2-16 
parameter, 2-2 
octal, 2-19 
repetition of, 5-14 
Constructing array format 
specifications, 6-20 
Contiguous storage areas, 7-4 
Contiguous storage locations, 
2-11 

Continuation 
field, 1-7 
indicator, 1-7 
lines, 1-3, 1-9 
CONTINUE statement, 4-9, B-4 
Control 

character, carriage, 6-11, 
6-16 

DO iteration, 4-6 
format 

see format control 
interaction with I/O lists, 
format, 6-18 
statements, 4-1 
transferring, 4-1 
transfers, 4-9, 8-1 
conditional, 4-4 
in DO loops, 4-8 
variable, 4-5, 4-6, 5-4 
Conventions, documentation, ix 
Conversion, 
data, 6-1 

double precision, 2-20 
rules for assignment state¬ 
ments, 3-2 

Converting data to internal 
format, 5-7 

Count, character, 2-10 
group repeat, 6-14 
Hollerith, 6-14 
iteration, 4-6 
repeat, 6-1, 6-14 
Creating a source program, 1-5 
Crossing disk block boundaries, 
5-26 


D 

D exponent field indicator, 6-5 
D field descriptor, 6-6 
D, (letter), 1-6, 2-6 
D specification, overriding, 6-21 
Data, 5-12 

alphanumeric, transmission of, 
6-8 

conversion, 6-1, 6-2, 6-4 
editing complex, 6-12 
field format, 6-1 
fields, undersized input, 1-2 
integer, 2-11 
logical, 2-17 

magnitude, effect on G format 
conversions, 6-7 
referencing in COMMON, 7-4 
rounding numeric, 5-9 
statement, 2-9, 2-11, 7-10, B-4 
transfer, 5-2, 5-8, 5-29 
translation of, 6-2 
transmission, 5-3, 6-2 
transmission of, 6-8 
Data type, 2-2, 2-8, 2-10, 2-11, 
2-19, 5-2, 6-8, 6-15, 8-1 
by implication, 2-11 
INTEGER*2, 2-5 
INTEGER*4, 2-5 
length specifier, 2-3 
of an arithmetic expression, 
2-19 

of an array, 2-14 
rank, 2-19 
specification, 2-11 
storage requirements, 2-3 
Data types, 

assigning, 7-2 
default, 7-2 
defining, 7-2 
of symbolic names, 7-2 
of symbolic names as constants, 
7-11 

of the list element, 5-15 
overriding, 7-2 
overriding implied, 7-1 
Debug statement indicator, 1-6 
Debugging statements, 1-2 
Decimal point, 2-4, 6-12, 6-20 
moving, 6-12, 6-13 
Declaration, explicit type, 2-11 
Declaration statements, type, 

7-2, 7-3 
Declarator, 

adjustable array, 2-15 
array, 2-12, 7-11 
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Declarator, (Cont.) 

dimension, 2-12, 2-16 
variable dimension, 2-15 
DECODE statement, 5-29, B-4 
Default 

allocation, 2-4 
data types, 7-2 
field descriptors, 6-15 
field descriptor values, 6-15 
table, 6-15 
formats, 5-16 

DEFINE FILE statement, 5-20, 
5-21, B-4 

Defined variable, 2-11 
Defining 

arrays, 7-2 

data types of symbolic names, 
7-2 

dimensions in an array, 7-3 
DELETE, 5-27 

Delimiting periods, 2-8, 2-20, 
2-22 

Descriptor, 

: (colon), 6-11 
$ (dollar), 6-11 
field, 6-1, 6-2 

see also Field descriptor 
Designating user-supplied sub¬ 
programs, 7-9 
Designator, null field, 
comma as, 6-21 
Destination statement, 4-8 
Determining the field width 
specification, 6-21 
Device, 

direct access, 5-11 
directory-structured, 5-20 
I/O, 5-2 
peripheral, 5-2 
Dimension 
bound, 2-15 

declarator, 2-12, 2-16 
lower bound, 2-13 
upper bound, 2-13 
variable, 2-15 
statement, 7-3, B-5 
Dimensions, 2-12 
Dimensions in an array, 
defining, 7-3 
Direct access 
device, 5-11 

files, 5-1, 5-21, 5-25, 5-27 
I/O 

formatted, 5-1, 5-12 
statement, 5-21 
unformatted, 5-1, 5-11 


Direct access (Cont.) 

READ statement 
formatted, 5-12 
unformatted, 5-11 
WRITE statement 
formatted, 5-13 
unformatted, 5-12 
Directory-structured device, 5-20 
Disconnecting a file, 5-28 
Disk file, 5-28 
Disk unit, 5-26 
Display, printing the, 4-11 
DISPOSE keyword, 5-23, 5-27 
Division, 2-17 
DO iteration control, 4-6 
DO list, implied, 5-4 
DO loop, 5-4, 8-6 

control transfers in a, 4-8 
nested, 4-7, 4-8 
range of the, 4-5, 4-6, 4-7 
terminal statement, 4-5 
DO range, executions of the, 4-6 
DO statement, 4-5, 4-6, 5-4, B-5 
extended range rules, 4-9 
Documentation conventions, ix 
Dollar sign ($) 

character, 6-11, 6-16 
descriptor, 6-11 

Double precision, 2-2, 2-3, 2-18, 
2-19, 6-6 
constant, 2-6 
conversion, 2-20 
negative constant, 2-6 
operations, 2-20 

Double quote, leading, 2-7, 6-20 
Dummy array size, 2-15 
Dummy arguments, 2-2, 2-11, 4-10, 
7-6, 8-1, 8-7 
and actual arguments, 
associating, 8-1 
in an ASF, 8-2 
in an ENTRY statement, 8-6 
integer, 2-15, 2-16 
values, 2-15 


E 

E field descriptor, 6-5 
Editing, complex data, 6-12 
Editor, using a text, 1-5 
Effect of 

data magnitude on G format 
conversions, 6-7 
exponent in an external 
field, 6-21 
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Effect of, (Cont.) 
parentheses, 2-18 
the scale factor, 6-13 
Elements, 

arithmetic, 2-16, 2-17 
array, 2-1 

see also Array elements 
assigning values to list, 5-3 
logical, 2-21 
of a FORTRAN program, 1-3 
Ellipsis (...), x 
ENCODE statement, 5-29, B-5 
End of a 

program unit, 4-12 
record, 5-15 
End-of-file 

condition, 5-2, 5-18, 5-19 
record, 5-18, 5-20 
transfer of control on, 5-18 
END= specification, 1-1, 5-18, 
B-6 

END statement, 1-3, 4-12, B-5 
ENDFILE statement, 5-20, B-5 
Entries, 

function, 2-2 
subroutine, 2-2 
ENTRY 

and array declarator inter¬ 
action, 8-7 

in function subprogram, 8-6 
names, 8-6 

function, 8-6 

points within a subprogram, 
multiple, 8-6 
statement, 1-2, 8-6, 

dummy arguments in, 8-6 
.EQ., 2-20 
Equal sign, 3-1 
EQUIVALENCE 

and COMMON interaction, 7-8 
and LOGICAL*4 arrays, 7-8 
of array storage, 7-7 
statements, 2-11, 7-5, 7-6, 
7-8, B-6 

Equivalencing arrays with non¬ 
unity lower bounds, 7-7 
Equivalent, making arrays, 7-6 
.EQV., 2-22 

ERR keyword, 5-23, 5-25 
ERR= specification, 1-1, 5-18, 
B-6 

Error condition, 5-2, 5-18 
transfer of control on, 5-18 
Evaluation of operators, 2-23 
Evaluation order, 2-19 
Evaluation, order of, 2-18 
Even boundary, 7-4 


Example, Newton-Raphson itera¬ 
tion method, 8-4 
Examples, 

FORTRAN programming, C-l 
OPEN statement, 5-28 
Exclamation point, 1-1, 1-3 
Executable program 1-3, 7-4 
Executable statements, 1-3, 8-9 
Execution, 

conditional statement, 4-4 
of a formatted input statement, 
6-19 

of a formatted output state¬ 
ment, 6-19 

of the DO range, 4-6 
resuming program 4-11 
suspending program, 4-11 
terminating program, 4-11 
Explicit type declaration, 2-11 
Exponent, 6-4, 6-20 

effect of in an external field, 
6-21 

field, 2-6 

field indicator, D, 6-5 
Exponential format, 6-5 
Exponentiation, 2-17, 2-18 
operator, 2-17 

Expressions, 2-1, 2-9, 2-16, 

5- 4, 6-14 
arithmetic, 8-2 
complex, 2-21 
logical, 2-16, 2-21 
mixed-mode, 1-1 
numeric, 5-22 
operators, B-l 
relational, 2-16, 2-20 
subscript, 2-13, 5-4 
variable format, 6-14 

External 

field, 6-21 

effect of exponent in, 6-21 
separators, 6-17 
input field, 6-20 
procedure names, 7-8 
record, 5-14 

record, character position of, 

6 - 10 

statement, 7-8, B-6 
statement, use of PDF name 
in, 8-10 

Extended range, 4-8, 4-9 
DO statement rules, 4-9 
Extending a file, 5-26 
Extending the common block, 7-8 
EXTENDSIZE keyword, 5-23, 5-26 
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F 

F field descriptor, 6-4, 6-13 
Factor, scale, 6-2, 6-12 
inoperative, 6-21 
False, 2-8, 2-20, 2-21 
.FALSE., 2-8 
Field, 

all-blank, 6-2, 6-4 
continuation, 1-7 
descriptor, 6-1, 6-2, 6-16, 
6-19, 6-20 
A, 6-8, 6-9 

D, 6-6 

E, 6-5 

F, 6-4, 6-13 

G, 6-6, 6-13 

H, 6-9 

I, 6-2 
L, 6-8 
O, 6-3 
Q, 6-11 
T, 6-10 
X, 6-10 

descriptors, 

alphanumeric literal, 6-20 
default, 6-15 
using scale factors, 6-20 
values, default (table), 6-15 
designator, comma as null, 6-21 
external input, 6-20 
fractional part of, 6-21 
null (zero-length), 6-18 
separators, 6-1 
separators, external, 6-17 
sequence number, 1-7 
statement, 1-7 
statement label, 1-6 
termination, short, 1-2, 6-17 
width, 

optional, 6-20 
specification, determining, 
6-21 

value, 6-15 
Fields, 

transferring record, 5-11 
zero-length, 6-21 
see also record fields 
Files, 

direct access, 5-1, 5-21, 5-25, 
5-27 

disconnecting a, 5-28 
disk, 5-28 
extending, 5-26 


Files, (Cont.) 
formatted, 5-27 
Include, 1-8, 1-9 
magnetic tape, 5-28 
open sequential, 5-19 
position, undefined, 5-14 
positioning functions, 5-2 
printing, 5-27 
processing in an overlay 
environment, 5-21 
read-only, 5-27 
scratch, 5-27, 5-28 
sequential, 5-25, 5-27 
size and structure, 5-20 
storage space, conserving, 5-6 
unformatted, 5-27 
Filling array elements, 7-10 
FIND statement, 5-21, B-7 
First character of an output 
record, 6-21 

First record character, 6-16 
Fixed-length records, 5-21 
Form, 

character, 5-1 
FORTRAN coding, 1-5 
keyword, 5-23, 5-25 
*n, 2-3 
r*, 5-15 
r*c, 5-14 
readable, 5-1 
Format, 

A, 6-15 

control, 5-9, 6-18, 6-19 
control interaction with I/O 
lists, 6-18 

conversions, effect of data 
magnitude on G, 6-7 
data field, 6-1 
expression, variable, 6-14 
list-directed output, 5-16 
object time, 6-18 
reversion, 6-13, 6-19, 6-20 
specifications, 5-1, 6-1, 6-16 
constructing array, 6-20 
separators, 6-16 
Format 

specifiers, 5-2 
statements, 6-1, 6-14, 6-20, 
B-7 

statements, summary of rules 
for, 6-19 
Formatted 

ACCEPT statement, 5-9 
direct access I/O, 5-1, 5-12 
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Formatted (Cont.) 

direct access READ state¬ 
ment, 5-12 

direct access WRITE state¬ 
ment, 5-13 
files, 5-27 

input statement, execution 
of, 6-19 

I/O statement, 5-3 
output statement, execution 
of, 6-19 

PRINT statement, 5-10 
records, 5-8 

sequential I/O, 5-1, 5-7 
sequential READ statement, 

5-7 

sequential WRITE statement, 
5-8 

TYPE statement, 5-10 
Formatting a FORTRAN line, 1-4 
Formatting, list-directed, 5-3, 

5- 16 

FORTRAN, ix, 5-27 

character set, 1-3, A-l 
coding form, (figure), 1-5 
coding form, using, 1-5 
language summary, B-l 
library function names, 8-9 
library functions, 8-9, C-l 
function references to, 8-9 
line, 1-5 

line, formatting a, 1-4 
processors, PDP-11, ix 
program, 1-3 

elements of a, 1-3 
statement components, 2-1 
statements, 1-3 
subprograms, 8-1 
FORTRAN IV, ix 
FORTRAN IV-PLUS, ix 
FORTRAN X3.9-1966, American 
National standard, 1-1 
Four bytes (two words), 2-3 
Fractional part of the field, 

6 - 21 
Function, 

Arithmetic Statement (ASF), 
8-2, B-2 
entries, 2-2 
entry name, 8-6 
file positioning, 5-2 
name, generic use of, 8-10 
name summary, generic, 8-11 
names, 8-10 


Function, (Cont.) 

reference, 4-10, 8-1, 8-2, 8-3 
generic, 8-10 
references, 2-1 

processor-defined, 8-9 
to FORTRAN library functions, 
8-9 

used as arguments, 7-9 
FUNCTION 

statement, 8-3, 8-4, B-7 
subprogram, 2-2, 4-10, 8-3 
subprograms, ENTRY in, 8-6 
Functions, 

FORTRAN library, 8-9, B-17, C-l 
function references to, 8-9 
non-generic FORTRAN, 8-10 
processor-defined, 2-2 


G field descriptor, 6-6, 6-13 
G format conversions, effect of 
data magnitude on, 6-7 
.GE., 2-20 

Generic and processor-defined 
function usage, 8-11 
Generic function 
name summary, 8-11 
name, use of, 8-10 
reference, 8-10 
selection, 8-10 

Giving constants symbolic names, 
7-11 

GO TO statement, 4-1, B-7, B-8 
assigned, 4-3 
computed, 4-2 
types of, 4-1 
unconditional, 4-2 
Group repeat 
count, 6-14 

specification, 6-14, 6-20 
Grouping, 6-14 
.GT., 2-20 


H 


H field descriptor, 6-9 
H, (letter), 2-8 
Hollerith constants, 1-1, 2-3, 
2-8, 2-9, 5-7, 5-16 
data type rules for, 2-9 
Hollerith count, 6-14 
Hollerith data, 7-10 
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I 

I field descriptor, 6-2 
I/O, 

formatted direct access, 5-1 
formatted sequential, 5-1 
list, 5-3, 5-6, 5-8, 5-11, 

5-29 

elements, 5-29, 6-15 
rule, 6-20 
simple, 5-3 

list-directed sequential, 5-2 
multi-buffered, 5-26 
statement, 

auxiliary, 5-2 
direct access, 5-21 
formatted, 5-3 
unformatted, 5-3 
direct access, 5-1 
sequential, 5-1 
see also Input/Output 
IF statement, 4-3, B-8 
arithmetic, 4-4 
logical, 4-4, 4-5 
Imaginary part, 2-2, 2-7 
Implication, data type by, 2-11 
see also Data type 
Implicit logical unit, 5-1 
number, 5-2 

IMPLICIT statements, 2-10, 2-11, 
7-1, B-8 

Implied data types, overriding, 
7-1 

Implied DO lists, 5-4 
Include file, 1-8, 1-9 
INCLUDE statement, 1-3, 1-8, 

1-9, B-9 

Increment parameter, 4-5 
Indicator, 
comment, 1-6 
continuation, 1-7 
debug statement, 1-6 
Information, system dependent, 
ix 

Initial space allocation, 5-26 
INITIALSIZE keyword, 5-23, 5-26 
Inner loop, 4-8 
see also DO loop 
Inoperative scale factor, 6-21 
Input 

characters, remaining, 6-11 
constant, 5-14 
conversion, 6-20, 6-21 
field, external, 6-20 


Input, (Cont.) 
file, 5-11 
statements, 2-11 
statements, execution of 
formatted, 6-19 
Input/Output, 
devices, 5-2 

formatted direct access, 5-12 
formatted sequential, 5-7 
list-directed, 5-13 
see List-directed 
lists, format control interac¬ 
tion with, 6-18 
methods of handling, C-l 
records, 5-3 
statements, 5-1, 5-3 
unformatted direct access, 5-11 
unformatted sequential, 5-6 
Integer, 2-2, 2-3, 2-19 

constant, 2-4, 2-5, 2-7, 2-15, 
2-16 

absolute value of an, 2-4 
negative, 2-4 
unsigned, 6-20 
data, 2-11 

data, translation of, 6-2 
dummy argument, 2-15, 2-16 
operations, 2-19 
type, 4-2 
value, 2-22 
variable, 2-16 
variables, 2-11 
INTEGER*2, 2-3 
data type, 2-5 
INTEGER*4, 2-3 
data type, 2-5 

Interaction, ENTRY and array 
declarator, 8-7 
Interaction, EQUIVALENCE and 
COMMON, 7-8 

Internal format, converting 
data to, 5-7 

Internal representation, 2-22, 

5-1 

Initial parameter, 4-5 
Iteration 

control, DO, 4-6 
count, 4-6 

method example, Newton-Raphson, 
8-4 

Iterative calculations, C-l 
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K 

Keyboard, terminal, 5-17 
Keyword, 5-22 
Keyword, ERR, 5-25 
Keywords in the OPEN statement, 
5-23 


L 

L field descriptor, 6-8 
Label, 

all-zero statement, 1-6 
field, statement, 1-6 
list, statement, 1-1 
reference, statement, 3-4 
statement, 1-3, 1-6, 8-5 
Language summary, FORTRAN, B-l 
.LE., 2-20 

Leading double quote, 2-7, 6-20 
Leading spaces, 6-2, 6-4 
Left angle bracket, 1-4 
Length attributes of symbolic 
names, overriding, 7-3 
Length specifier, data type, 

2-3 

Letters, 

lower case, 1-4 
upper case, 1-4 
Level number, 2-12 
Library functions, FORTRAN, 

8-9, B-17, C-l 
function references to, 8-9 
Line, 1-3 

comment, 1-9 
continuation, 1-3, 1-9 
formatting a FORTRAN, 1-4 
FORTRAN, 1-5 
printer, 5-10 
/List, 1-8 
List, 

arguments, 4-10 
element, data types or tne, 
5-15 

elements, assigning values to, 
5-3 

implied DO, 5-3 
I/O, 5-3, 6-20 
keyword, 5-27 
rule, I/O, 6-20 
simple I/O, 5-3 
statement label, 1-1 


List-directed 

ACCEPT statement, 5-17 
formatting, 5-3, 5-16 
I/O, 1-3, 5-13 
output formats, 5-16 
PRINT statement, 5-18 
READ statement, 5-14 
records, backspacing over, 5-14 
sequential I/O, 5-2 
TYPE statement, 5-17 
WRITE statement, 5-16 
Literals, alphanumeric, 1-1, 2-8 
see also Alphanumeric literal 
Locations, storage 
allocating, 7-3 
assigning, 7-6 
Logical, 2-2, 2-3, 2-19 
assignment statement, 3-3 
constant, 2-8, 5-14 
data, 2-17, 3-3 
data, transmission of, 6-8 
elements, 2-21 

expressions, 2-16, 2-21, 4-5 
IF statement, 4-4, 4-5 
operators, 2-21, 2-22, 2-23, 

B-l 

record length, 5-25 
unit, 5-1, 5-6 
implicit, 5-1 
number, implicit, 5-2 
numbers, 5-2 
value, 2-22, 3-3 
values, 2-16 
LOGICAL*1, 2-3 
array, 7-8 

array element storage, 2-14 
elements, assigning to 
COMMON, 7-4 
LOGICAL*2, 2-3 
LOGICAL*4, 2-3 
Loop, 

nested DO, 4-7, 4-8 
range of the DO, 4-6 
see also DO loop 
Loss of precision, 5-9 
Lower bound, 2-12 

dimension declarator, 2-13 
equivalencing arrays with 
non-unity, 7-7 
Lower case letter, x, 1-4 
.LT., 2-20 
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M 

Magnetic tape, files, 5-28 
Magnitude, 

effect on G format conversions, 
data, 6-7 

of a real constant, 2-6 
of the value, 6-4 

see also Data type storage 
requirements 

Main program, 1-3, 2-2, 4-12 
unit, 4-10, 7-12 
units, 2-15 

Making arrays equivalent, 7-6 
Maximum number of characters 
stored in a variable, 6-8 
Maximum Radix-50 value, A-3 
MAXREC keyword, 5-23, 5-27 
Memory requirements for data 
types 

see Data Type Storage 
Requirements 

Methods of handling input/output, 
C-l 

Minus, unary, 2-17 
Mixed-mode expressions, 1-1 
Moving the decimal point, 

6-12, 6-13 

Multi-buffered I/O, 5-26 
Multi-dimensional arrays, 
processing, 5-5 
Multiple entry points within 
a subprogram, 8-6 
Multiple functions in a single 
function subprogram, 8-8 
Multiplication, 2-17 


N 

NAME keyword, 5-23, 5-24 
Named common, 7-5 
Names, 

classes of symbolic, 2-2 
common block, 7-4 
external procedure, 7-8 
generic function, 8-10, 8-11 
giving to constants, symbolic, 

7- 11 

summary of generic function, 

8 - 11 

symbolic, 2-1 

use of generic function, 8-10 
.NE., 2-20 


Negative 

double precision constant, 2-6 
integer constants, 2-4 
see also Constant 
Nested DO loops, 4-7, 4-8 
see also DO loop 
NEW, 5-24 

Newton-Raphson iteration method 
example, 8-4 
/NOLIST, 1-8 
NONE, 5-27 

Nonexecutable statements, 1-3, 

7- 1 

Non-generic FORTRAN functions, 

8 - 10 

Non-printing character, ix 
Non-unity lower bounds, 

equivalencing arrays with, 7-7 
NOSPANBLOCKS keyword, 5-23, 5-26 
.NOT., 2-22 
Notation, syntax, x 
Null 

character, ASCII, 5-24 
field designator, comma as, 

6-21 

record, 5-7 
value, 5-14 

values, repetition of, 5-15 
zero-length field, 6-18 
Number, 

column, 2-12 
complex, 2-7 

implicit logical unit, 5-2 
level, 2-12 
logical unit, 5-2 
of blocks, 5-26 
page, 2-12 
row, 2-12 
statement, 11-6 
Numerals, 2-4 
Numeric 

data, rounding, 5-9 
expression, 5-22 
values, 2-16 


o 

0 field descriptor, 6-3 
Object time format, 6-18 
Octal constant, 2-7, 2-19 
Octal values, transmission of, 
6-3 

OLD, 5-24 
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One character, 6-16 
Open sequential file, 5-19 
OPEN statement, B-9, 5-22 
examples, 5-28 
keywords in the, 5-23 
Operand, 2-16 
Operators, 2-16 

arithmetic, 2-16, B-l 
assignment, 2-9 
binary, 2-9, 2-17 
evaluation of, 2-23 
exponentiation, 2-17 
expression, B-l 
logical, 2-21, 2-22, B-l 
precedence, 2-18, 2-23 
relational, 2-20, B-l 
unary, 2-17 
Optional 

field width, 6-20 
repeat count, 6-20 

see also Repeat count 
.OR., 2-22 

Order of evaluation, 2-18, 2-19 
Order of subscript progression, 
2-13 

Ordering rules, statement, 1-7 
Outer loop, 4-8 

see also DO loop 
Output formats, list-directed, 
5-16 

see also Statements, list- 
directed and List-directed 
format 

Output record, first character 
of, 6-21 

see also Record 
Output statement, execution 
of formatted, 6-19 
see also statement, 
formatted and I/O statement 
Overlay environment, file 
processing in an, 5-21 
Overriding 

data types, 7-2 
implied data types, 7-1 
length attributes of symbolic 
names, 7-3 

the D specification, 6-21 


p 

Packing arrays, 5-3 
Page number, 2-12 
Parameter, 

increment, 4-5 
initial, 4-5 


Parameter, (Cont.) 
terminal, 4-5 
constants, 2-2 

see also Constants 
PARAMETER statements, 1-2, 7-11, 

B-9 

Parentheses, 2-21, 2-23, 6-1, 

6-14 

effect of, 2-18 
use of, 2-18 
Part, 

imaginary, 2-2 
real, 2-2 

Partial records, 5-3, 5-8, 5-13 
see also Records 
PAUSE statement, 4-11, B-10 
PDF names (processor-defined 
function), 8-9 
in EXTERNAL statement, use 
of, 8-10 

see also Function, Processor- 
defined and Processor- 
defined function 
PDP-11 FORTRAN processors, ix 
Periods, delimiting, 2-8, 2-20, 

2-22 

Peripheral devices, 5-2 
Physical block size, 5-28 
see also Block 

Physical end of record, 6-17 
see also Record 
Plus, unary, 2-17 
Plus character, 6-16 
Point, decimal 

see Decimal point 
Points, multiple entry within 
subprogram, 8-6 
Positive constant, 2-4 
integer, 2-4 

see also Constant 
Precedence, 2-18, 2-21, 2-22 
operator, 2-23 
Precision, 

see Double Precision or 

Data type storage requirements 
Precision, loss of, 5-9 
PRINT, 5-27 

PRINT statement, B-10, B-13, 

B-14 

formatted, 5-10 
list-directed, 5-18 
see also Statement 
Printable character, 1-4 
Printer, 

line, 5-10 

terminal, 5-10, 5-17 
Printing the display, 4-11 
Printing a file, 5-27 
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Procedure, computing, 1-3 
Procedure names, external, 7-8 
Procedure names as subprogram 
arguments, 7-9 
Processing, 

carriage control, 5-27 

see also Carriage control 
iterative, 4-5 

multi-dimensional arrays, 5-5 
termination of, 5-15 
Processors, PDP-11 FORTRAN, ix 
Processor-defined function 
(PDF), 2-2, 8-9 
names, 8-9 

references, 8-9, 8-10 
Program, 

creating a source, 1-5 
elements of a FORTRAN, 1-3 
executable, 1-3, 7-4 
execution, 

altering format specifications 
during, 6-18 
resuming, 4-11 
suspending, 4-11 
terminating, 4-11 
FORTRAN, 1-3 
main, 1-3, 2-2 
statement, 2-12, B-10 
Program unit, 1-3, 3-4, 5-21, 

7-4, 7-5, 8-3, 8-4, 8-9 
calling, 4-10 
end of a, 4-12 
main, 2-15, 4-10, 7-12 
structure, 1-7 
Programming examples, 

FORTRAN, C-l 

Progression, order of sub¬ 
script, 2-13 


Q 

Q field descriptor, 6-11 
Quantity, 32-bit signed, 2-5 
Quote, leading double, 2-7, 
6-20 


R 

Radix-50 

character set, A-3 
characters, 2-10 
characters and ASCII octal 
equivalents, A-3 


Radix-50 (Cont.) 
code values, 2-10 
constant, 2-9, 2-10, 7-10 
maximum value, A-3 
Range, 

extended, 4-8 

of the DO loop, 4-5, 4-6, 4-7 
see also DO loop range 
rules, DO statement extended, 
4-9 

Rank, data type, 2-19 
READ statement, B-10, B-ll 

formatted direct access, 5-12 
formatted sequential, 5-7 
list-directed, 5-14 
unformatted direct access, 5-11 
unformatted sequential, 5-6 
Readable form, 5-1 
Read-only file, 5-27 
READONLY keyword, 5-23, 5-25 
Real, 2-2, 2-3, 2-19 
constant, 2-5 

constant, magnitude of a, 2-6 
operations, 2-19 


part, 

2-2, 

2-7 

variables, 

2-11 

REAL*4, 

2-3 


REAL*8, 

2-3 


Record, 

5-6, 

5-12 

see 

also 

Records 


beginning of a, 5-15 
character, first, 6-16 
end-file, 5-20 
end of a, 5-15 

external, character position 
of, 6-10 

fields, transferring, 5-11 
first character of an output, 
6-21 

initiator, 6-17 
length, actual, 5-25 
length, logical, 5-25 
number, 5-11, 5-19 
number specifier, 5-21 
physical end of, 6-17 
terminator, 6-1, 6-17 
terminator, slash (/), 6-16 
Records, 5-3, 5-9 
formatted, 5-8 
fixed length, 5-21 
input/output, 5-3 
number of, 5-11 
partial, 5-3, 5-8, 5-13 
size of, 5-11 
transmitting, 5-9 
zero-filled, 5-12 
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RECORDSIZE keyword, 5-23, 5-25 
Reference, 
array, 5-4 
function, 8-1, 8-3 
generic function, 8-10 
function used as•arguments, 

7- 9 

processor-defined function, 

8- 9 

statement label, 3-4 
subprogram, 8-1 

Referencing data in COMMON, 7-4 
Reinstating a zero scale factor, 
6-20 

Relational 

expression, 2-20 
expressions, 2-16, 2-21 
operations, 2-21 
operators, 2-20, B-l 
Remaining input characters, 6-11 
Repeat count, 6-1, 6-14 
group, 6-14 
optional, 6-20 

Repeat specifications, group, 
6-14, 6-20 
Repetition of 
constants, 5-14 
null values, 5-15 
Representation, internal, 5-1, 

5- 22 

Requirements, data type storage, 
2-3 

see also Data type 
Resuming program execution, 4-11 
see also Program execution 
RETURN statement, 4-10, 8-3, 

8-4, B-12 

Reversion, format, 6-13, 6-19, 
see also Format reversion 
REWIND statement, 5-19, B-12 
Right angle bracket, 1-4 
Rounding numeric data, 5-9, 6-4 
Row number, 2-12 

see also Number 
Rule, I/O list, 6-20 
Rules, DO statement extended 
range, 4-9 

for format statements, summary, 

6- 19 

statement ordering, 1-7 


s 

SAVE, 5-27 

Scale factor, 6-2, 6-12 
effect of, 6-13 


Scale factor, (Cont.) 

field descriptors using a, 

6-20 

inoperative, 6-21 
reinstating a zero, 6-20 
Scratch file, 5-27, 5-28 
SCRATCH keyword, 5-24 
Selection, generic function, 8-10 
Separators, 

external field, 6-17 
field, 6-1 

format specification, 6-16 
slash, 5-15 
value, 5-15 

Sequence number field, 1-7 
Sequential file, 5-25, 5-27 
open, 5-19 
Sequential I/O, 

formatted, 5-1, 5-7 
list-directed, 5-2 
unformatted, 5-1, 5-6 
Sequential READ statement, 
formatted, 5-7 
unformatted, 5-6 
Sequential WRITE statement, 
formatted, 5-8 
unformatted, 5-6, 5-7 
Shading, ix 
Shared access, 5-26 
SHARED keyword, 5-23, 5-26 
Sharing storage space, 7-6 
Short field termination, 1-2, 

6-17 

Signed quantity, 

16-bit, 2-5 
32-bit, 2-5 
Simple I/O list, 5-3 
Size, dummy array, 2-15 
Size, specifying the physical 
block, 5-28 

Slash (/), 5-15, 6-1, 6-19 
consecutive, 6-16 
record terminator, 6-16 
separator, 5-15 
Source 

line, 4-12 

program, creating a, 1-5 
text, 1-6 
Space, 

allocation, initial, 5-26 
appended, 2-9 

character, ix, 1-6, 2-10, 6-16 
sharing storage, 7-6 
Spaces, 5-14, 5-15 

see also space character 
leading, 6-2, 6-4 
trailing, 6-2 
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Special characters, 1-4 
Specification, 
attribute, 5-22 
data type, 2-11 
determining field width, 6-21 
format, 5-1, 6-1 
group repeat, 6-14, 6-20 
separators, format, 6-16 
statements, 7-1 
statements in BLOCKDATA 
subprogram, 8-8 

Specifier, data type length, 2-3 
Specifiers, formats, 5-2 
Square brackets, ([]), x 
Statement, 

ACCEPT, 5-9, 5-17, B-2, B-10, 
B-ll 

arithmetic assignment, 3-1 
ASSIGN, 3-4, 4-3, B-2 
assigned GO TO, 4-3 
BACKSPACE, 5-20, B-3 
BLOCK DATA, 8-4, B-3 
CALL, 4-9, 4-10, 7-9, 8-1, 

8-4, B-3 

CLOSE, 5-28, B-3 
COMMON, 2-11, 7-4, 7-5, B-3 
computed GO TO, 4-2 
CONTINUE, 4-9, B-4 
control, 4-1 
DATA, 2-11, 7-10, B-4 
DECODE, 5-29, B-4 
DEFINE FILE, 5-20, 5-21, B-4 
destination, 4-8 
DIMENSION, 7-3, B-5 
DO, 4-5, 4-6, B-5 
ENCODE, 5-29, B-5 
END, 1-3, 4-12, B-5 
END=, 5-18, B-6 
ENDFILE, 5-20, B-5 
ENTRY, 1-2, 8-6, B-6 
EQUIVALENCE, 2-11, 7-5, B-6 
ERR=, 5-18, B-6 
EXTERNAL, 7-8, B-6 
execution of formatted input, 
6-19 

execution of formatted output, 
6-19 

FIND, 5-21, B-7 
FORMAT, 6-1, B-7 
formatted, 

ACCEPT, 5-9 

direct access READ, 5-12 
I/O, 5-3 
PRINT, 5-10 
sequential READ, 5-7 
TYPE, 5-10 


Statement, (Cont.) 

FUNCTION, 8-3, 8-4, B-7 
GO TO, 4-1, 4-2, 4-3, B-7 
IF, 4-3, B-8 

IMPLICIT, 2-10, 2-11, 7-1, B-8 
INCLUDE, 1-3, 1-8, 1-9, B-9 
I/O, 5-1, 5-3 
list-directed, 

ACCEPT, 5-17 
PRINT, 5-18 
READ, 5-14 
TYPE, 5-17 
WRITE, 5-16 

logical assignment, 3-3 
logical IF, 4-4, 4-5 
OPEN, 5-22, B-9 
PARAMETER, 1-2, 7-11, B-9 
PAUSE, 4-11, B-10 
PRINT, 5-10, 5-18, B-10, B-13, 
B-14 

PROGRAM, 7-12, B-10 
READ, 5-6, 5-7, 5-11, 5-12, 
5-14, B-10 

RETURN, 4-10, 8-3, 8-4, B-12 
REWIND, 5-19, B-12 
STOP, 4-11, B-12 
SUBROUTINE, 8-4, 8-5, B-12 
terminal, 4-9 

TYPE, 5-10, 5-17, B-12, B-13, 
B-14 

type declaration, 2-11, B-12 
unconditional GO TO, 4-2 
unformatted 

direct access READ, 5-11 
direct access WRITE, 5-12 
sequential READ, 5-6 
sequential WRITE, 5-7 
WRITE, 5-7, 5-8, 5-12, 5-13, 
5-16, B-13, B-14 
Statement components, FORTRAN, 

2-1 

Statement execution, conditional, 

4- 4 

Statement field, 1-7 
Statement function, arithmetic 
(ASF), 8-2 

Statement label, 1-3, 1-6, 4-3, 

5- 2, 5-18, 8-5 
all-zero, 1-6 
field, 1-6 
list, 1-1 
reference, 3-4 

Statement number, 1-6 
Statement ordering rules, 1-7 
Statements, 1-3 

allowed in a BLOCK DATA sub¬ 
program, 8-8 
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Statements , (Cont.) 
assignment, 3-1 
conversion rules for assign¬ 
ment, 3-2 

executable, 1-3, 8-9 

format, summary of rules, 6-19 

non-executable, 1-3, 7-1 

specification, 7-1 

summary of, B-2 

summary of rules for format, 

6- 19 

type declaration, 2-10, 7-2, 

7- 3 


STOP statement, 

4-11 

Stop, tab, 1-6 


Storage, 


area, 1-byte, 

to 

1 

4^ 


allocating locations, 7-3 
block of, 7-4 
contiguous areas, 7-4 
location, 7-5 

locations, allocating, 7-3 
locations, assigning, 7-6 
locations, contiguous, 2-11 
LOGICAL*1 array elements, 2-14 
requirements, data type, 2-3 
space, sharing, 7-6 
unit, 2-3 
units, 5-25 

Storage, array, 2-13, 2-14 
equivalence of, 7-7 
Strings, byte, 2-8 
Structure, program unit, 1-7 
Subprogram, 1-3, 2-15, 4-12, 7-6 
actual arguments, 8-1 
arguments, using procedure 
name as, 7-9 
block data, 2-2 
dummy arguments, 8-1 
execution, 8-6 
FUNCTION, 4-10, 8-3 
multiple entry points within, 

8-6 

multiple functions in a single 
function, 8-8 
references, 8-1 

SUBROUTINE, 4-9, 4-10, 8-4, 8-5 
usage, C-l 

Subprograms, designating user- 
supplied, 7-9 
ENTRY in function, 8-6 
function, 2-2 
subroutine, 2-2 
user-written, 8-1 
Subroutine entries, 2-2 
SUBROUTINE statement, 8-4, 8-5, 
B-12 


SUBROUTINE subprogram, 2-2, 4-9, 
4-10, 8-4, 8-5 
Subscript, 2-13 

expression, 2-13, 5-4 
progression, 5-5, 5-9, 7-10 
order of, 2-13 

Subscripted array reference, 2-13 
Subscripts, array references 
without, 2-14 
Subtraction, 2-17 
Successive commas, 6-18 
Summary, 

FORTRAN language, B-l 
generic function names, 8-11 
of rules for format state¬ 
ments, 6-19 
of statements, B-2 
Suspending program execution, 

4-11 

Symbolic name, 2-1, 2-10, 2-11 
classes, 2-2 

defining data types of, 7-2 
giving to constants, 7-11 
overriding length attributes 
of, 7-11 

Syntax notation, x 

System dependent information, ix 


T 

T field descriptor, 6-10 
TAB character, ix, 1-5, 1-6 
Tab stop, 1-6 
Tabs, 5-15 

Tabulation specifier, 6-10 
Terminal 

keyboard, 5-9, 5-17, 6-17 
parameter, 4-5 
printer, 5-10, 5-17 
statement, 4-8, 4-9 
statement of a DO loop, 4-5 
Terminating program execution, 
4-11 

Termination of processing, 5-15 
Termination, short field, 6-17 
Terminator, record, 6-1 
slash (/), 6-16 
Text Editor, using a, 1-5 
Trailing spaces, 6-2 
Transfer of control on 
end-of-file, 5-18 
error conditions, 5-18 
Transferring control, 4-1, 8-1 
Transferring record fields, 5-11 
Transfers, conditional control, 
4-4 
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Translation of integer data, 6-2 
Transmission, data, 5-3 
alphanumeric, 6-8 
logical, 6-8 
octal values, 6-3 
Transmitting array elements, 5-4 
Transmitting records, 5-9 
True, 2-8, 2-20, 2-21 
.TRUE., 2-8 

Truncated constant, 2-9 
Type, 

by implication, data, 2-11 
data see Data type 
declaration, explicit, 2-11 
declaration statement, 2-10, 
2-11, 7-2, 7-3, B-12 
keyword, 5-23, 5-24 
of GO TO statements, 4-1 
specification, data, 2-11 
statement, B-12, B-13, B-14 
formatted, 5-10 
list-directed, 5-17 


u 

Unary 

minus, 2-17 
operators, 2-17 
plus, 2-17 

Unconditional GO TO statement, 
4-2 

Undefined file position, 5-14 
Undersized input data field, 
1-2 

Unformatted 

direct access I/O, 5-1, 5-11 
READ statement, 5-11 
WRITE statement, 5-12 
files, 5-27 
I/O, 5-3 

sequential I/O, 5-1, 5-6 
READ statement, 5-6 
WRITE statement, 5-6, 5-7 
Unit, 

implicit logical, 5-1 
keyword, 5-23, 5-24 
logical, 5-1 
main program, 7-12 
UNKNOWN, 5-24 
Unsigned constant, 2-4 
integer, 6-20 
Unsubscripted array, 5-3 
name, 2-15, 4-10, 7-10 


Upper bound, 2-12 
Upper bound dimension declarator, 
2-13 

Upper case letters, x, 1-4 
Use of generic function name, 

8-10 

parentheses, 2-18 
PDF name in an EXTERNAL state¬ 
ment, 8-10 

User-supplied subprograms, 
designating, 7-9 
User-written subprograms, 8-1 
Using 

a text editor, 1-5 
FORTRAN coding forms, 1-5 
procedure names as subprogram 
arguments, 7-9 


V 

Value, 2-17, 5-14 
field width, 6-15 
integer, 2-22 
magnitude of, 6-4 
null, 5-14 

of the variable, 2-10 
Radix-50 maximum. A-3 
separator, 5-15 
Values, 

assigning, 3-2 
assigning to variables and 
array elements, 7-10 
default field descriptor, 6-15 
dummy argument, 2-15 
in common blocks, assigning 
initial, 8-8 

logical, 2-16, 2-22, 3-3 
numeric, 2-16 
Variable, 

control, 4-5, 4-6 
dimension declarators, 2-15 
format expression, 6-14 
value of the, 2-10 
Variables, 2-1, 2-2, 2-10, 2-11, 
5-4 

assigning values to array 
elements and, 7-10 
associated, 2-10, 5-21 
integer, 2-11, 2-16 
maximum number of characters 
stored in, 6-8 
real, 2-11 


Index-17 









INDEX (Cont.) 


w 

Width value, field, 6-15 
Word boundary, 7-4 
Word boundary alignment, 7-8 
WRITE statement, B-13, B-14 
formatted direct access, 5-13 
formatted sequential, 5-8 
list-directed, 5-16 
unformatted direct access, 
5-12 

unformatted sequential, 5-7 


x 

X field descriptor, 6-10 
. XOR., 2-22 


z 

Zero 

byte, 5-24 
character, 6-16 

scale factor, reinstating, 6-20 
Zero-filled records, 5-12 
Zero-length field (null), 6-18 
Zero-length fields, 6-21 


1-dimensional array, 2-12 

1- byte storage area, 2-4 

2- dimensional array, 2-12 

3- dimensional array, 2-12 

4- byte allocation, 2-4 
32-bit signed quantity, 2-5 
16-bit signed quantity, 2-5 
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